- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求教下拉列出全部表名选择 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=117585)
-- 发布时间：2018/4/15 15:39:00
-- 求教下拉列出全部表名选择
在表名列输入表名后，用代码If e.Col.Name = "lm"Then
Dim s As String = e.Row("bm")
If s > "" AndAlso Tables.Contains(s) Then
Dim t As Table = Tables(s)
s = ""
For Each c As Col In t.Cols
s = s & "|" & c.Name
Next
e.Col.ComboList = s
End If
End If
可以列出此表的全部列名选择。
如何用代码在表名列进入编辑时通过下拉列表列出全部表名进行选择表名输入。谢谢
此主题相关图片如下：1523777480(1).png
此主题相关图片如下：1523777480(1).png-- 发布时间：2018/4/15 16:08:00
--
If e.Col.Name = "bm"Then
Dim s As String = ""
For Each t As Table In Tables
s = s & "|" & t.name
Next
e.Col.ComboList = s
End If