主题：又不知道该如何下手了，CheckedListBox是否有ListItemFormat事件

不知道CheckedListBox是否有ListItemFormat属性。

下拉窗口出现里，按照品类进行分页，CheckedListBox根据每一页的品类生成“代码+产品”的行，将所选的行，取代码，集中赋值到当前行中

，打开下拉窗口时，之前所选择的产品能够勾选出来。

之前狐总有帮我解决了一个案例，下拉窗口出现时根据选项选择产品名称,后面发现太占空间了（昨天看了论坛中狐友发的sql，只要是备注字段，一使用就占2k空间），所以想改，之前狐总解决的个案例也发上来.........

(另外帮助中ComboBox的ListItemFormat   事件  ，这一页看了半天，也弄不明白ComboBox的ListItemFormat怎么用)

Dim px As String = CurrentTable(0,"铺市品项")

Dim px2 As String
For i As Integer = 0 To px.split(",").length-1

    Dim dr As DataRow
    dr = DataTables("产品").Find("品项 = '" & px.split(",")(i) & "'")
    px2 = px2 & dr("代码") & ","

Next
CurrentTable(0,"铺市品项2") = px2.trim(",")

是这样吗？：

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

点击浏览该文件:管理项目+.rar

很接近了，但是实际上铺市品项这一列不存在，而只有“铺市品项2”这一列。只要保留取选择产品的代码，但是下拉窗口出现时又是以“代码 + 产品”的方式显示。下拉窗口也是为  “铺市品项2”这一列设计的

上传的案例中我把“铺市品项”这一列及对应的“下拉窗口”保留，是将狐总的思路也发给大家，做一个参考

更正一下：

1、ListItemFormat是事件，不是属性，CheckedListBox也有，因为他有ListBox的全部成员。

2、你的问题与此无关，因为你的是手动设置列表项目的。

你看这个，和原来基本一样，只是用了字符串的split方法和DataTable的GetUniqueValues的另一个语法：

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

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