Foxtable(狐表)用户栏目专家坐堂 → ListItemFormat代码


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

主题:ListItemFormat代码

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


加好友 发短信
等级:五尾狐 帖子:1135 积分:11099 威望:0 精华:2 注册:2008/9/1 10:45:00
ListItemFormat代码  发帖心情 Post By:2014/12/31 14:44:00 [只看该作者]

列表项目来自于数据表时,列表项目只能显示一列的内容,如果希望显示多列内容,可以通过事件ListItemFormat来实现。
假定列表项目来自于客户表,取值列为客户编号,显示列为客户名称,如果希望列表项目能同时显示客户编号和客户名称两列的内容,可以在ListItemFormat事件中设置如下代码:

e.Value = e.ListItem("客户编号") & "|" & e.ListItem("客户名称")


问题:如果列表项目是这样生成的:

Dim s As String  = DataTables("商品库存").SQLGetComboListString("产品编号")

Dim nm As WinForm.ComboBox = e.Form.Controls("ComboBox2")

nm.ComboList = s

那么,

e.Value = e.ListItem("产品编号") & "|" & e.ListItem("产品名称")

这句代码怎么改?


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


加好友 发短信
等级:五尾狐 帖子:1135 积分:11099 威望:0 精华:2 注册:2008/9/1 10:45:00
  发帖心情 Post By:2014/12/31 15:22:00 [只看该作者]


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


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

 回复1楼,不行。改不了。


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


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

变通处理,参考代码

 

Dim ary As List(Of String())  = DataTables("商品库存").SQLGetValues("产品编号|产品名称")
Dim str As String = ""
For Each a As String() In ary
    str &= a(0) & "," & a(1) & "|"
Next

Dim nm As WinForm.ComboBox = e.Form.Controls("ComboBox2")

nm.ComboList = str


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


加好友 发短信
等级:五尾狐 帖子:1135 积分:11099 威望:0 精华:2 注册:2008/9/1 10:45:00
  发帖心情 Post By:2014/12/31 19:38:00 [只看该作者]

多谢,我试一下!

 回到顶部