以下是引用hai99在2007-7-21 17:01:15的发言:
请教几个问题,截取了如下代码
Private Sub KDGInit()
KDGrid.Col.Cols = 4 '这里为何设置4列?实际只需要3列的。
KDGrid.Row.Rows = 2
KDGrid.Col(1).Width = 500
KDGrid.Col(2).Width = 1000
KDGrid.Col(3).Width = 1300
KDGrid.Col(4).Width = 1500
KDGrid.Col(4).Visible = False 这里为何又取消了呢?
KDGrid.Cell(1, 2).Value = "变量名"
KDGrid.Cell(1, 3).Value = "变量值"
KDGrid.Cell(1, 4).Value = "变量所在数组中的位置"
KDGrid.Cell(KDGrid.Row.Rows, 1).Value = CStr(KDGrid.Row.Rows - 1) '这几句能否给个注释呢?实在看不懂,谢谢!
KDGrid.Cell(KDGrid.Row.Rows, 2).Locked = True
KDGrid.Cell(KDGrid.Row.Rows, 3).Type = CT_FLOAT
KDGrid.Cell(KDGrid.Row.Rows, 4).Type = CT_INTEGER
KDGrid.Switch(SWID_EDIT_SHORTCUT) = True
End Sub
设置4列的原因 是,KDGrid.Cell(1, 4).Value = "变量所在数组中的位置",我不是把变量存在数组中了么?是一个标记而已.而KDGrid.Col(4).Visible = False 这条语句是隐藏该列的!
KDGrid.Cell(KDGrid.Row.Rows, 1).Value = CStr(KDGrid.Row.Rows - 1)'因为这个过程是初始化KDGrid控件的,而这条语句是填充第一列的数据,也就所谓的序号(加个序号感觉要好点.KDGrid.Row.Rows这个是KDGrid控件当前总行数,KDGrid.Cell这个CELL函数是填充数据的).
KDGrid.Cell(KDGrid.Row.Rows, 2).Locked = True'这个是将第二列最后一行锁住
KDGrid.Cell(KDGrid.Row.Rows, 3).Type = CT_FLOAT'这个是设置第三列最后一行的数据类型为FLOAT
KDGrid.Cell(KDGrid.Row.Rows, 4).Type = CT_INTEGER'这个是设置第四列最后一行的数据类型为INTEGER
KDGrid.Switch(SWID_EDIT_SHORTCUT) = True'这个是设置KDGrid控件样式,单击单元格就可以输入数据,你可以试着把这条语句取消一下,就明白了.
[此贴子已经被作者于2007-7-21 20:25:29编辑过]