以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  又不知道该如何下手了,CheckedListBox是否有ListItemFormat事件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=8797)

--  作者:小狐
--  发布时间:2010/12/8 17:31:00
--  又不知道该如何下手了,CheckedListBox是否有ListItemFormat事件

不知道CheckedListBox是否有ListItemFormat属性。

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

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

 

 

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

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

[此贴子已经被作者于2010-12-9 19:02:49编辑过]

--  作者:小狐
--  发布时间:2010/12/8 17:32:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目.rar


--  作者:blackzhu
--  发布时间:2010/12/8 17:40:00
--  
你铺市品项2要做到怎样?铺市品项和2有什么区别?
--  作者:小狐
--  发布时间:2010/12/8 19:37:00
--  
已在文件中写明,铺市品项是取名称,要解决的是“ 铺市品项2” 取代码
--  作者:mr725
--  发布时间:2010/12/8 20:21:00
--  

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(",")


--  作者:mr725
--  发布时间:2010/12/8 22:15:00
--  

是这样吗?:

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目+.rar


--  作者:小狐
--  发布时间:2010/12/9 0:02:00
--  

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

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

[此贴子已经被作者于2010-12-9 0:30:07编辑过]

--  作者:mr725
--  发布时间:2010/12/9 1:18:00
--  
图片点击可在新窗口打开查看
--  作者:狐狸爸爸
--  发布时间:2010/12/9 8:22:00
--  

更正一下:

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

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

 

 

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

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目24.table