先给字段“列表项目”指定 数据表,再指定显示列,取值列,完成后,测试通过。在取消掉,即“列表项目”选择了 空白。
之后在prepareedit 事件中,设置如下代码
If e.IsFocusCell Then Dim a As datatable = DataTables("营销部") If e.Col.Name = "市场片区_省市" Then e.Col.ComboList = a.GetComboListString("市场片区_省市") End IfEnd If
这时,测试时就不出现下拉框了