载入窗体后的代码如下：
已经定义了grid1的cellcomboBox的属性
接下来犯难了
例如：接下来想让grid1获取表格“日程设定”中的“考试日期”项目下的数据，作为grid1.combobox(1)的additem
要怎麽办啊？？？
Private Sub Form_Load()
'--------------------------
'以下窗体内容为查询系统的代码
'--------------------------
Grid1.SetRegisterInformation "CNwinndy", "W]vyY-nonvk-u\nty-Zbl_e-`hms^" '进行注册
Grid2.SetRegisterInformation "CNwinndy", "W]vyY-nonvk-u\nty-Zbl_e-`hms^" '进行注册

'---------------------
'以下cellcombobox是控件grid 的一个属性，即是在表格单元格可以出现下拉框，
'下拉框中就是用户所需的快捷内容
'----------------------
Grid1.Column(1).CellType = cellComboBox
Grid1.Column(2).CellType = cellComboBox
Grid1.Column(3).CellType = cellComboBox
Grid1.Column(4).CellType = cellComboBox
Grid1.Column(5).CellType = cellComboBox
Grid1.Column(6).CellType = cellComboBox
'Grid1.Column(7).CellType = cellComboBox
Grid1.Cell(0, 1).Text = "考试日期" '将表格内添入固定内容
Grid1.Cell(0, 2).Text = "时间"
Grid1.Cell(0, 3).Text = "课程名"
Grid1.Cell(0, 4).Text = "教室号"
Grid1.Cell(0, 5).Text = "系名"
Grid1.Cell(0, 6).Text = "年级"
'Grid1.Cell(0, 7).Text = "楼层"
'Grid1.ComboBox(1).datasource =
'Grid1.ComboBox(1).AddItem "精确查询" '这里是类似combo框的操作，也是把内容添入combo控件的记录集
'Grid1.ComboBox(1).AddItem "select 考试日期 from 日程设定 where " & grid1.Cell(0,1)"'"

Grid1.ComboBox(2).AddItem "教师监考次数"
kstable = "生成"
Call callmain
End Sub