午夜精品网影院,日韩美女,狼友网页

VARCHART XGantt用戶手冊：數據表——創建和修改數據記錄（ActiveX版）

翻譯|使用教程|編輯：莫成敏|2019-09-27 10:19:32.567|閱讀 371 次

概述：VARCHART XGantt是一個交互式的甘特圖控件，其模塊化的設計讓您可以創建滿足您和您的客戶所需求的應用程序。本文主要描述甘特圖數據表教程中的——創建和修改數據記錄！是ActiveX版本的教程內容~

相關鏈接：

VARCHART XGantt是一個交互式的甘特圖控件，其模塊化的設計讓您可以創建滿足您和您的客戶所需求的應用程序。除此之外，同時還具有一個穩定可靠的甘特圖工具，在編寫第一行代碼之前，您就可以知道是否可以滿足客戶的需求。本文主要描述甘特圖數據表教程中的創建和修改數據記錄！這是ActiveX版本的教程，本文內容緊接上文（創建數據表）~

點擊下載VARCHART XGantt最新版

創建和修改數據記錄

定義數據表字段之后，您可以通過API將數據記錄添加到表中。有兩種向記錄中添加數據的方法。我們建議使用一種常見的做法來定義類型變量的數組，其元素的數量與數據表字段的數量相對應。

示例代碼

Dim dataTable As VcDataTable
Dim dataRecCltn As VcDataRecordCollection
Dim dataRecVal() As Variant
Dim dataRec1 As VcDataRecord
Dim dataRec2 As VcDataRecord
Set dataTable = VcGantt1.DataTableCollection.DataTableByName("Maindata")
Set dataRecCltn = dataTable.DataRecordCollection

ReDim dataRecVal(dataTable.DataTableFieldCollection.Count)
dataRecVal(0) = 1
dataRecVal(1) = "Node 1"
dataRecVal(2) = DateSerial(2007, 1, 8)
dataRecVal(4) = 8

可以通過DataRecordCollection的Add（）方法添加數據記錄，變體數組作為參數傳遞。

示例代碼

Set dataRec1 = dataRecCltn.Add(dataRecVal)

第二種方法是使用由數據值組成的字符串，這些數據值由分號分隔。

示例代碼

Set dataRec2 = dataRecCltn.Add("2;Node 2;15.01.07;;9")

如果數據值本身包含分號，則該字符串必須用雙引號括起來。

示例代碼

Set dataRec2 = dataRecCltn.Add("2; ""Node 2;"";15.01.07;;9")

可以通過DataRecordByID（）方法和主鍵快速找到對數據庫對象的引用。

示例代碼

Set dataRec1 = dataRecCltn.DataRecordByID(1)
Set dataRec2 = dataRecCltn.DataRecordByID(2)

通過使用索引屬性DataField（），可以輕松修改數據記錄的單個數據字段的內容。對于替換記錄的所有數據字段的內容，屬性AllData非常有用。

示例代碼

dataRec1.DataField(Main_ID) = 1
dataRec1.DataField(Main_Name) = "Activity X"
dataRec1.DataField(Main_Start) = DateSerial(2007, 1, 4)
dataRec1.DataField(Main_Duration) = 12
dataRec1.UpdateDataRecord

dataRec2.AllData = "2;Activity Y;18.01.07;;5"
dataRec2.UpdateDataRecord

記錄的修改僅在調用對象DataRecord的Update（）方法之后才顯示在圖表中。

通過Alldata讀取數據字段值可在設計時快速顯示數據，并輕松將數據記錄的內容傳輸到其他表的記錄中。

示例代碼

Dim content As String
content = dataRec1.AllData & vbCr & dataRec2.AllData & vbCr &
dataRec1.DataField(Main_Name)
MsgBox (content)

注意：為了提高訪問數據字段時的可讀性，可以定義全局常量，其名稱比索引號更具描述性。

請在下面找到一致的代碼分區。

示例代碼

Const Main_ID = 0
Const Main_Name = 1
Const Main_Start = 2
Const Main_Duration = 4
'... 
Dim dataRec1 As VcDataRecord
Dim dataRec2 As VcDataRecord

Dim content As String
VcGantt1.TimeScaleEnd = DateSerial(2008, 1, 1)
VcGantt1.TimeScaleStart = DateSerial(2007, 1, 1)

VcGantt1.ExtendedDataTablesEnabled = True
Set dataTable = VcGantt1.DataTableCollection.DataTableByName("Maindata")
Set dataRecCltn = dataTable.DataRecordCollection

ReDim dataRecVal(dataTable.DataTableFieldCollection.Count)

dataRecVal(Main_ID) = 1
dataRecVal(Main_Name) = "Node 1"
dataRecVal(Main_Start) = DateSerial(2007, 1, 8)
dataRecVal(Main_Duration) = 8
Set dataRec1 = dataRecCltn.Add(dataRecVal)

dataRecCltn.Add("2;Node 2;15.01.07;;9")

VcGantt1.EndLoading

'...

Set dataRec1 = dataRecCltn.DataRecordByID(1)
Set dataRec2 = dataRecCltn.DataRecordByID(2)

dataRec1.DataField(Main_ID) = 1
dataRec1.DataField(Main_Name) = "Activity X"
dataRec1.DataField(Main_Start) = DateSerial(2007, 1, 4)
dataRec1.DataField(Main_Duration) = 12
dataRec1.UpdateDataRecord

dataRec2.AllData = "2;Activity Y;18.01.07;;5"
dataRec2.UpdateDataRecord

content = dataRec1.AllData & vbCr & dataRec2.AllData & vbCr &
dataRec1.DataField(Main_Name)
MsgBox (content)
'...
dataRec2.AllData = "2;""Activity Y;Z"";18.01.07;;5"
dataRec2.UpdateDataRecord
content = dataRec1.AllData & vbCr & dataRec2.AllData
MsgBox (content)

這是輸出：

創建和修改數據記錄