增加自定义数据列

本节内容可以参考CaseStudy目录下的文件“甘特图自定义列.Table”。

本节的任务是在甘特图中增加两个自定义列，一个是逻辑型的“结算”列，一个是有下拉列表的“等级”列：

设计步骤

1、单击"表格列"属性右侧的按钮"..."，

2、在列集合编辑窗口单击“添加”按钮右边的下拉箭头，然后单击"CustomFieldColumn"命令，增加一个自定义列。

3、按下图所示设置列属性，至少要设置Name(列名)、Caption(标题)和DataType(数据类型)三个属性，这次增加的是逻辑型的结算列：

4、同样的步骤再增加一个字符型的等级列，如下图：

5、在窗口的AfterLoad事件加上代码：

Dim gv As GanttView = e.Form.Controls("GanttView1").GanttView
gv.SetComboList("等级", "A|B|C|D|E") '设置下拉列表，注意第一个参数是列标题，而不是列名！