主题：多值字段的“下拉窗口”能否分页显示

铺市品项这个字段点一下，出现下拉窗口有说明，

你仔细看看你9楼的附件，里面什么都没有。哪来的 铺市品项 呢？

刚才发错了，不好意思，已

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

重新发过

这好像很简单嘛，或是我没理解？

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目15.table

 

Dim s As String
s = DataTables("产品").GetComboListString("品类","[品类] = 'A类'")

Dim clb As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
clb.ComboList = s

ok,我将CheckedComboBox换成了CheckedListBox

但是新的情况，每一行都有不同的勾选项，如何保留.（现有的勾选内容会带到下一行，下一行的内容一变）。上一行也变了

DropDownOpened :

Dim clb As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
clb.value = CurrentTable.current("铺市品项")

这一块，我不熟，再想请教一下。CheckedListBox1的选择项，打完勾后，值怎么输入到　("铺市品项")这个字段。是那个属性？

就这个案例使用CheckedListBox1如何形成完整的代码，可不可以弄一下，谢谢

测试后，这样可以： 做个关闭的按钮：

Dim clb As WinForm.CheckedListBox = Forms("窗口1").Controls("CheckedListBox1")
With e.Form.DropDownBox
.CloseDropDown()
End With

CurrentTable.focus

CurrentTable.value(CurrentTable.position,"铺市品项") = clb.value

 

 

 

我刚才试了一下，是乎不行