Foxtable(狐表)用户栏目专家坐堂 → 复选列表框


  共有3297人关注过本帖树形打印复制链接

主题:复选列表框

帅哥哟,离线,有人找我吗?
deliangzhaoe
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:364 积分:3491 威望:0 精华:0 注册:2012/7/24 7:15:00
复选列表框  发帖心情 Post By:2018/12/18 17:20:00 [只看该作者]

复选列表框的列表项目,能不能由表的一个单元格中的多行文字生成(这些行由回车键分隔),怎样写代码?


 回到顶部
帅哥哟,离线,有人找我吗?
y2287958
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4760 积分:34608 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2018/12/18 17:24:00 [只看该作者]

用集合拼一下

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/18 17:50:00 [只看该作者]

参考代码

 

Dim str As String = "123" & vbcrlf & "abc"
str = str.replace(vbcrlf, "|")
列表项目控件.combolist = str


 回到顶部
帅哥哟,离线,有人找我吗?
deliangzhaoe
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:364 积分:3491 威望:0 精华:0 注册:2012/7/24 7:15:00
  发帖心情 Post By:2018/12/18 18:44:00 [只看该作者]

单元格内容不是固定的,我做个实例,你看一下,谢谢
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:测试.foxdb




 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110790 积分:563882 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/12/18 20:14:00 [只看该作者]

例如:

Dim str As String = DataTables("表A").GetComboListString("公司目标","名称='雷达'")
str = str.Replace(vbcr,"").Replace(vblf,"|")
Dim cbo As WinForm.ComboBox = e.Form.Controls("ComboBox1")
cbo.ComboList = str


 回到顶部
帅哥哟,离线,有人找我吗?
deliangzhaoe
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:364 积分:3491 威望:0 精华:0 注册:2012/7/24 7:15:00
  发帖心情 Post By:2018/12/19 16:26:00 [只看该作者]

这个已经实现了。
现在我想将这个checkedlistbox中选中的行文字,填入到另一个textbox中,怎么写代码?
选中时添加到texbox中;撤销选中时,texbox中的本行文字删除

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/19 16:34:00 [只看该作者]

itemcheck事件,写代码,如

 

e.Form.controls("textbox1").text = e.sender.value


 回到顶部
帅哥哟,离线,有人找我吗?
deliangzhaoe
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:364 积分:3491 威望:0 精华:0 注册:2012/7/24 7:15:00
  发帖心情 Post By:2018/12/19 19:37:00 [只看该作者]

checkedlistbox中所有的文字,不管是选中的还是没选中,点击添加按钮时,全部添加到表A的列5中,怎么写代码?现在用checkedlistbox的value属性,只能添加选中了的文字。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/19 21:38:00 [只看该作者]

以下是引用deliangzhaoe在2018/12/19 19:37:00的发言:
checkedlistbox中所有的文字,不管是选中的还是没选中,点击添加按钮时,全部添加到表A的列5中,怎么写代码?现在用checkedlistbox的value属性,只能添加选中了的文字。

 

比如

 

e.Form.controls("textbox1").text = e.sender.combolist.replace("|", ",")

 


 回到顶部