以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  ListItemFormat代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=62422)

--  作者:pyh6918
--  发布时间:2014/12/31 14:44:00
--  ListItemFormat代码

列表项目来自于数据表时,列表项目只能显示一列的内容,如果希望显示多列内容,可以通过事件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
--  发布时间:2014/12/31 15:22:00
--  

--  作者:有点甜
--  发布时间:2014/12/31 15:35:00
--  

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


--  作者:有点甜
--  发布时间: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
--  发布时间:2014/12/31 19:38:00
--  
多谢,我试一下!