- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 数据显示 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=132099)
-- 发布时间：2019/3/13 21:52:00
-- 数据显示
此主题相关图片如下：微信图片_20190313215806.png
您好，我想在点击Listbox中的数据的时候出现数值，可是显示出来的却是0，之前显示的时候没问题，代码是一样的，就是我之后加了几个表，又加了一行代码将那几个表隐藏了
此主题相关图片如下：微信图片_20190313215349.png
-- 发布时间：2019/3/13 21:53:00
--
以下是我写的代码：
Dim lst1 As WinForm.ListBox = e.Form.Controls("ListBox1")
Dim lst2 As WinForm.ListBox = e.Form.Controls("ListBox2")
Dim str As String = ""
For Each dt As DataTable In DataTables
If dt.name <> "Main" And dt.name <> "统计出现次数_Table1" And dt.name <> "Frequence" And dt.name <> "Frequence2" And dt.name <> "Frequence3" And dt.name <> "Frequence4" And dt.name <> "Frequence5" Then
If dt.name <> "UFrequence" And dt.name <> "UFrequence2" And dt.name <> "UFrequence3" And dt.name <> "UFrequence4" And dt.name <> "UFrequence5" Then
If dt.name <> "UConsequence" And dt.name <> "UConsequence2" And dt.name <> "UConsequence3" And dt.name <> "UConsequence4" And dt.name <> "UConsequence5" Then
If dt.name <> "Consequence" And dt.name <> "Consequence2" And dt.name <> "Consequence3" And dt.name <> "Consequence4" And dt.name <> "Consequence5" Then
If dt.name <> "users" And dt.name <> "可能性" And dt.name <> "严重度" And dt.name <> "风险矩阵" And dt.name <> "风险值" Then
str &= dt.name & "|"
End If
End If
End If
End If
End If
Next
Dim cmd As WinForm.Listbox = e.Form.controls("listbox1")
cmd.ComboList = str.trim("|")
str = lst1.items(1)
lst2.Items.Clear
For Each c As Col In Tables(str).cols
lst2.items.Add(c.name)
Next
-- 发布时间：2019/3/13 23:11:00
--
没看懂你想说什么，请上传具体实例，说明你要做到什么效果。