甘特圖（Xgantt）從1998年的第一個(gè)商用版本開始就致力于計(jì)劃編制和項(xiàng)目管理方面控件的研究和開發(fā)，經(jīng)過20多年的積累和沉淀，目前可為軟件開發(fā)商和最終用戶提供最頂級(jí)的計(jì)劃編制和項(xiàng)目管理的控件產(chǎn)品，幫助用戶快速的整合項(xiàng)目管理軟件所需的甘特圖，網(wǎng)絡(luò)圖，資源柱狀圖，日程日歷，資源調(diào)度等功能模塊，并提供全方位的支持和服務(wù)。

VARCHART XGantt是一款功能強(qiáng)大的甘特圖控件，其模塊化的設(shè)計(jì)讓您可以創(chuàng)建滿足需要的應(yīng)用程序。XGantt可用于.NET，ActiveX和ASP.NET應(yīng)用程序，可以快速、簡單地集成到您的應(yīng)用程序中，幫助您識(shí)別性能瓶頸、避免延遲以及高效利用資源，使復(fù)雜數(shù)據(jù)變得更加容易理解。

VARCHART XGantt在市場上已有近30年的歷史，它提供了最完善的C＃Gantt圖表控件，可用于構(gòu)建現(xiàn)代而又可靠的行業(yè)資源調(diào)度應(yīng)用程序。

點(diǎn)擊下載VARCHART XGantt正式版

在定義了數(shù)據(jù)表字段后，你可以通過API向表中添加數(shù)據(jù)記錄。有兩種方式可以將數(shù)據(jù)記錄添加到你的記錄中。我們建議通常的做法是定義一個(gè)類型為對(duì)象的數(shù)組，其元素?cái)?shù)量與數(shù)據(jù)表字段的數(shù)量相對(duì)應(yīng)。

Example Code VB.NET

Dim dataTable As VcDataTable
Dim dataRecCltn As VcDataRecordCollection
Dim dataRecVal() As Object
Dim dataRec1 As VcDataRecord
Dim dataRec2 As VcDataRecord
dataTable = VcGantt1.DataTableCollection.DataTableByName("Maindata")
dataRecCltn = dataTable.DataRecordCollection
ReDim dataRecVal(dataTable.DataTableFieldCollection.Count)
dataRecVal(Main_ID) = "1"
dataRecVal(Main_Name) = "Node 1"
dataRecVal(Main_Start) = DateSerial(2013, 1, 8)
dataRecVal(Main_Duration) = 8

VcDataTable dataTable =
vcGantt1.DataTableCollection.DataTableByName("Maindata");
VcDataRecordCollection dataRecCltn = dataTable.DataRecordCollection;
Object [] dataRecVal = new
object[dataTable.DataTableFieldCollection.Count];
VcDataRecord dataRec1;
VcDataRecord dataRec2;
dataRecVal[Main_ID] = "1";
dataRecVal[Main_Name] = "Node 1";
dataRecVal[Main_Start] = "08.01.2013";
dataRecVal[Main_Duration] = 8

示例代碼VB.NET

dataRec1 = dataRecCltn.Add(dataRecVal)

示例代碼 C#
dataRec1 = dataRecCltn.Add(dataRecVal)

作為第二種方法，你可以使用一個(gè)由數(shù)據(jù)值組成的字符串，并以分號(hào)分隔。

示例代碼VB.NET

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

示例代碼 C#

dataRec2.AllData = "2;活動(dòng)Y;15.01.13;;9"。

如果一個(gè)數(shù)據(jù)值包含一個(gè)分號(hào)，那么這個(gè)字符串必須用雙引號(hào)括起來。

示例代碼VB.NET

dataRec2 = dataRecCltn.Add("2;""節(jié)點(diǎn)2;";15.01.13;;9")

示例代碼 C#

dataRec2 = dataRecCltn.Add("2;\"節(jié)點(diǎn)2;\";15.01.13;;9")

通過使用DataRecordByID()方法，可以通過主鍵快速找到對(duì)數(shù)據(jù)基礎(chǔ)對(duì)象的引用。

Example Code VB.NET
dataRec1 = dataRecCltn.DataRecordByID("1")
dataRec2 = dataRecCltn.DataRecordByID("2")

Example Code C#

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

通過使用索引屬性DataField()，可以很容易地修改數(shù)據(jù)記錄的單個(gè)數(shù)據(jù)字段的內(nèi)容。為了替換一條記錄的所有數(shù)據(jù)字段內(nèi)容，你可以使用AllData()這個(gè)屬性。

Example Code VB.NET

dataRec1.DataField(Main_ID) = 1
dataRec1.DataField(Main_Name) = "Activity X"
dataRec1.DataField(Main_Start) = DateSerial(2013, 1, 4)
dataRec1.DataField(Main_Duration) = 12
dataRec1.Update()
dataRec2.AllData = "2;Activity Y;18.01.13;;5"
dataRec2.Update()

dataRec1.set_DataField(Main_ID, 1);
dataRec1.set_DataField(Main_Name, "Activity X");
dataRec1.set_DataField(Main_Start, "04.01.2014");
dataRec1.set_DataField(Main_Duration, 12);
dataRec1.Update();

dataRec2.AllData = "2;Activity Y;18.01.14;;5";
dataRec2.Update();

使用Alldata加載值適合在設(shè)計(jì)時(shí)快速顯示所有數(shù)據(jù)值，也適合將數(shù)據(jù)記錄內(nèi)容轉(zhuǎn)移到不同表的記錄中。您也可以使用這種數(shù)據(jù)格式與OLE拖放進(jìn)行信息交換。

示例代碼VB.NET

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

content = dataRec1.AllData + "\r\n" + dataRec2.AllData + "\r\n" + 。
dataRec1.get_DataField(Main_Name)。
MessageBox.Show(content);

Example Code VB.NET

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(2014, 1, 1)
VcGantt1.TimeScaleStart = DateSerial(2013, 1, 1)

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

ReDim dataRecVal(dataTable.DataTableFieldCollection.Count)

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

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

VcGantt1.EndLoading()
'...

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

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

dataRec2.AllData = "2;Activity Y;18.01.13;;5"
dataRec2.Update()

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

const int Main_ID = 0;
const int Main_Name = 1;
const int Main_Start = 2;
const int Main_Duration = 4;
//...
VcDataRecord dataRec1;
VcDataRecord dataRec2;
string content;
vcGantt1.TimeScaleEnd = Convert.ToDateTime("01.01.2014");
vcGantt1.TimeScaleStart = Convert.ToDateTime("01.01.2013");

vcGantt1.ExtendedDataTablesEnabled = true;
VcDataTable dataTable =
vcGantt1.DataTableCollection.DataTableByName("Maindata");
VcDataRecordCollection dataRecCltn = dataTable.DataRecordCollection;
Object [] dataRecVal = new
object[dataTable.DataTableFieldCollection.Count];)

dataRecVal[Main_ID] = "1";
dataRecVal[Main_Name] = "Node 1";
dataRecVal[Main_Start] = "08.01.2013";
dataRecVal[Main_Duration] = 8;
dataRec1 = dataRecCltn.Add(dataRecVal);

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

vcGantt1.EndLoading();

//...
dataRec1 = dataRecCltn.DataRecordByID(1);
dataRec2 = dataRecCltn.DataRecordByID(2);

dataRec1.set_DataField(Main_ID, 1);
dataRec1.set_DataField(Main_Name, "Activity X");
dataRec1.set_DataField(Main_Start, "04.01.2013");
dataRec1.set_DataField(Main_Duration, 12);
dataRec1.Update();

dataRec2.AllData = "2;Activity Y;18.01.13;;5";
dataRec2.Update();

content = dataRec1.AllData + "\r\n" + dataRec2.AllData + "\r\n" +
dataRec1.get_DataField(Main_Name);
MessageBox.Show(content);
//...
dataRec2.AllData = "2;Activity Y;Z;18.01.13;;5";
dataRec2.Update();
content = dataRec1.AllData + "\r\n" + dataRec2.AllData;
MessageBox.Show(content);

想要了解甘特圖或慧都APS系統(tǒng)，請登錄慧都網(wǎng)，解決您的問題！