甘特圖開(kāi)發(fā)中的活動(dòng)和鏈接要顯示的話，VARCHART XGantt需要為甘特圖提供數(shù)據(jù)支撐。默認(rèn)情況下，相關(guān)的通信會(huì)用到兩個(gè)表：

• NodeTable (也被稱為Maindata)
• LinkTable (也被稱為Relations)

在窗體中放入VARCHART XGantt時(shí)，一些基本字段已經(jīng)預(yù)先定義了。《如何將XGantt置入到VS窗體中》

Maindata數(shù)據(jù)表中的字段：

Relations數(shù)據(jù)表中的字段：

其他更多的字段就需要我們自己手動(dòng)定義了。你可以在設(shè)計(jì)時(shí)通過(guò)對(duì)話框管理數(shù)據(jù)表（下半部分）或者在運(yùn)行時(shí)使用VcDataTableFieldCollection對(duì)象的Add(...)方法添加。

如果你覺(jué)得默認(rèn)的表不夠多，你可以自己創(chuàng)建一些，在擴(kuò)展屬性頁(yè)找到常規(guī)選項(xiàng)，點(diǎn)擊啟用Extended data tables，然后在Administrate Data Tables的下半部分進(jìn)行設(shè)置。

VcDataRecordCollection的DataRecordByID()方法允許通過(guò)主鍵快速查找對(duì)象。

為了使示例中的活動(dòng)和鏈接可見(jiàn)，你需要在數(shù)據(jù)表中存入一些數(shù)據(jù)。

你可以使用VcData-RecordCollection對(duì)象的Add(...)方法。EndLoading方法則為相應(yīng)的圖表數(shù)據(jù)組成數(shù)據(jù)。請(qǐng)?jiān)贚oad事件中輸入如下代碼：

Example Code VB.NET

Dim dataTable As VcDataTable
Dim dataRecCltn As VcDataRecordCollection
VcGantt1.ExtendedDataTablesEnabled = True

dataTable = VcGantt1.DataTableCollection.DataTableByName("Maindata")
dataRecCltn = dataTable.DataRecordCollection
dataRecCltn.Add("1;Node 1;07.05.2010;;5")
dataRecCltn.Add("2;Node 2;14.05.2010;;5")
dataRecCltn.Add("3;Node 3;21.05.2010;;5")

dataTable = VcGantt1.DataTableCollection.DataTableByName("Relations")
dataRecCltn = dataTable.DataRecordCollection
dataRecCltn.Add("1;1;2")
dataRecCltn.Add("2;2;3")

VcGantt1.EndLoading

Example Code C#

vcGantt1.ExtendedDataTablesEnabled = true;
VcDataTable dataTable =
vcGantt1.DataTableCollection.DataTableByName("Maindata");
VcDataRecordCollection dataRecCltn = dataTable.DataRecordCollection;
dataRecCltn.Add("1;Node 1;07.05.2010;;5");
dataRecCltn.Add("2;Node 2;14.05.2010;;5");
dataRecCltn.Add("3;Node 3;21.05.2010;;5");

dataTable =
vcGantt1.DataTableCollection.DataTableByName("Relations");
dataRecCltn = dataTable.DataRecordCollection;
dataRecCltn.Add("1;1;2");
dataRecCltn.Add("2;2;3");

vcGantt1.EndLoading;

字段的順序與數(shù)據(jù)定義中的字段順序相對(duì)應(yīng)。新記錄必須明確說(shuō)明哪一個(gè)不能為空。在記錄中的日期對(duì)應(yīng)數(shù)據(jù)定義表中的DateFormat定義。解釋的持續(xù)時(shí)間取決于時(shí)間單位的設(shè)置。預(yù)先設(shè)定的以天為單位，你可以在常規(guī)屬性頁(yè)的設(shè)置里面進(jìn)行修改。

日期輸出的格式與常規(guī)屬性頁(yè)上的表和每個(gè)對(duì)話框定義的保持一致。

從一個(gè)CSV文件中加載甘特圖數(shù)據(jù)

除了上面介紹的添加數(shù)據(jù)的方法外，你也可以從一個(gè)CSV文件中加載數(shù)據(jù)。對(duì)應(yīng)的文件結(jié)構(gòu)如下：

示例代碼

1;Node 1;07.05.2010;;5;
2;Node 2;14.05.2010;;5;
3;Node 3;21.05.2010;;5;
****
1;1;2;
2;2;3;

每個(gè)記錄都有它自己的行。每行內(nèi)容對(duì)應(yīng)的參數(shù)通過(guò)VcDataRecordCollection對(duì)象類型的Add(...) 方法傳遞。

Maindata數(shù)據(jù)表的記錄被列在第一位，其次是關(guān)系數(shù)據(jù)表的記錄。使用****表的名稱****標(biāo)志著一個(gè)記錄組。

如果你保存這種類型的文件例如intro.csv，你可以導(dǎo)入的數(shù)據(jù)如下：

Example Code VB.NET

VcGantt1.Open("c:\intro.csv")

Example Code C#

vcGantt1.Open(@"c:\intro.csv");

為甘特圖指定時(shí)間周期

到現(xiàn)在為止，你還沒(méi)有看到任何活動(dòng)，因?yàn)闀r(shí)間刻度還沒(méi)有調(diào)整為同期。時(shí)間刻度顯示的范圍可以通過(guò)TimeScaleStart和TimeScaleEnd屬性定義，或VcGantt對(duì)象的OptimizeTimeScaleStartEnd（...）方法從數(shù)據(jù)中確定。

Example Code VB.NET

VcGantt1.TimeScaleEnd = New DateTime(2011, 1, 1)
VcGantt1.TimeScaleStart = New DateTime(2010, 5, 4)

Example Code C#

vcGantt1.TimeScaleEnd = new DateTime(2011,1,1);
vcGantt1.TimeScaleStart =new DateTime(2010,5,4);

下面的代碼你可能會(huì)用到：

Example Code VB.NET

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load

   VcGantt1.Width = ClientSize.Width - VcGantt1.Left
   VcGantt1.Height = ClientSize.Height - VcGantt1.Top

   Dim dataTable As VcDataTable
   Dim dataRecCltn As VcDataRecordCollection

   vcGantt1.ExtendedDataTablesEnabled = True
   dataTable = VcGantt1.DataTableCollection.DataTableByName("Maindata")
   dataRecCltn = dataTable.DataRecordCollection
      dataRecCltn.Add("1;Node 1;03.05.2010;;5")
      dataRecCltn.Add("2;Node 2;08.05.2010;;5")
      dataRecCltn.Add("3;Node 3;15.05.2010;;5")

   dataTable = VcGantt1.DataTableCollection.DataTableByName("Relations")
   dataRecCltn = dataTable.DataRecordCollection
   dataRecCltn.Add("1;1;2")
   dataRecCltn.Add("2;2;3")

   VcGantt1.EndLoading()

   VcGantt1.OptimizeTimeScaleStartEnd(3)
End Sub

   Private Sub Form1_Resize(ByVal sender As Object, ByVal e As
System.EventArgs) Handles MyBase.Resize
   VcGantt1.Width = ClientSize.Width - VcGantt1.Left
   VcGantt1.Height = ClientSize.Height - VcGantt1.Top
End Sub

Example Code C#

private void Form1_Load(object sender, System.EventArgs e)
{
     vcGantt1.Width = ClientSize.Width - vcGantt1.Left;
     vcGantt1.Height = ClientSize.Height - vcGantt1.Top;

     vcGantt1.ExtendedDataTablesEnabled = true;
     VcDataTable dataTable =
         vcGantt1.DataTableCollection.DataTableByName("Maindata");
     VcDataRecordCollection dataRecCltn = dataTable.DataRecordCollection;
     dataRecCltn.Add("1;Node 1;03.05.2010;;5");
     dataRecCltn.Add("2;Node 2;08.05.2010;;5");
     dataRecCltn.Add("3;Node 3;15.05.2010;;5");

     dataTable =
          vcGantt1.DataTableCollection.DataTableByName("Relations");
     dataRecCltn = dataTable.DataRecordCollection;
     dataRecCltn.Add("1;1;2");
     dataRecCltn.Add("2;2;3");

     vcGantt1.EndLoading();

     vcGantt1.OptimizeTimeScaleStartEnd(3);
}

private void Form1_Resize(object sender, System.EventArgs e)
{
     vcGantt1.Width = ClientSize.Width - vcGantt1.Left;
     vcGantt1.Height = ClientSize.Height - vcGantt1.Top;
}

如果你現(xiàn)在運(yùn)行程序，將會(huì)看到下圖中的結(jié)果：