世俱杯 2025

甘特图开发中的活动和链接要显示的话，VARCHART XGantt需要为甘特图提供数据支撑。默认情况下，相关的通信会用到两个表：

• NodeTable (也被称为Maindata)
• LinkTable (也被称为Relations)

在窗体中放入VARCHART XGantt时，一些基本字段已经预先定义了。《如何将XGantt置入到VS窗体中》

Maindata数据表中的字段：

Relations数据表中的字段：

其他更多的字段就需要我们自己手动定义了。你可以在设计时通过对话框管理数据表（下半部分）或者在运行时使用VcDataTableFieldCollection对象的Add(...)方法添加。

如果你觉得默认的表不够多，你可以自己创建一些，在扩展属性页找到常规选项，点击启用Extended data tables，然后在Administrate Data Tables的下半部分进行设置。

VcDataRecordCollection的DataRecordByID()方法允许通过主键快速查找对象。

为了使示例中的活动和链接可见，你需要在数据表中存入一些数据。

你可以使用VcData-RecordCollection对象的Add(...)方法。EndLoading方法则为相应的图表数据组成数据。请在Load事件中输入如下代码：

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;

字段的顺序与数据定义中的字段顺序相对应。新记录必须明确说明哪一个不能为空。在记录中的日期对应数据定义表中的DateFormat定义。解释的持续时间取决于时间单位的设置。预先设定的以天为单位，你可以在常规属性页的设置里面进行修改。

日期输出的格式与常规属性页上的表和每个对话框定义的保持一致。

从一个CSV文件中加载甘特图数据

除了上面介绍的添加数据的方法外，你也可以从一个CSV文件中加载数据。对应的文件结构如下：

示例代码

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;

每个记录都有它自己的行。每行内容对应的参数通过VcDataRecordCollection对象类型的Add(...) 方法传递。

Maindata数据表的记录被列在第一位，其次是关系数据表的记录。使用****表的名称****标志着一个记录组。

如果你保存这种类型的文件例如intro.csv，你可以导入的数据如下：

Example Code VB.NET

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

Example Code C#

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

为甘特图指定时间周期

到现在为止，你还没有看到任何活动，因为时间刻度还没有调整为同期。时间刻度显示的范围可以通过TimeScaleStart和TimeScaleEnd属性定义，或VcGantt对象的OptimizeTimeScaleStartEnd（...）方法从数据中确定。

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);

下面的代码你可能会用到：

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;
}

如果你现在运行程序，将会看到下图中的结果：