- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]后台获取所有表名和列名 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=110143)
-- 发布时间：2017/11/27 17:05:00
-- [求助]后台获取所有表名和列名
老师好，怎样从后台获取所有表名和列名然后赋值给组合框1和组合框2.
-- 发布时间：2017/11/27 17:38:00
--
1、参考
http://www.foxtable.com/webhelp/scr/1943.htm
2、参考
http://www.foxtable.com/webhelp/scr/0696.htm
-- 发布时间：2017/11/27 19:49:00
--
此主题相关图片如下：2017-11-27 19 44 07.png
-- 发布时间：2017/11/27 20:54:00
--
表名组合框Textchanged事件
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "SELECT * From {" & e.sender.text & "} Where 1=2"
dt = cmd.ExecuteReader()
Dim cbo As WinForm.ComboBox = e.Form.controls("列名")
For Each c As DataCol In dt.Datacols
cbo.Items.Add(c.Name)
Next
-- 发布时间：2017/11/27 22:27:00
--
老师，组合框2设置代码后不显示列名。
此主题相关图片如下：2017-11-27 22 20 21.png
-- 发布时间：2017/11/27 22:41:00
--
我测试没有问题，上传实例说明
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "SELECT * From {" & e.sender.text & "} Where 1=2"
dt = cmd.ExecuteReader()
Dim cbo As WinForm.ComboBox = e.Form.controls("ComboBox2")
cbo.Items.Clear
For Each c As DataCol In dt.Datacols
cbo.Items.Add(c.Name)
Next
-- 发布时间：2017/11/27 23:10:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:集合表列名.rar |
-- 发布时间：2017/11/27 23:17:00
--
代码放到表名的组合框的Textchanged事件
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "SELECT * From {" & e.sender.text & "} Where 1=2"
cmd.ConnectionName = "数据库"
dt = cmd.ExecuteReader()
Dim cbo As WinForm.ComboBox = e.Form.controls("ComboBox2")
cbo.Items.Clear
For Each c As DataCol In dt.Datacols
cbo.Items.Add(c.Name)
Next
[此贴子已经被作者于2017/11/27 23:17:41编辑过]
-- 发布时间：2017/11/27 23:28:00
--
谢谢老师，摆错地方了。组合框2 改为CheckedComboBox1 代码怎样修改.
-- 发布时间：2017/11/28 9:00:00
--
以下是引用江南小镇在2017/11/27 23:28:00的发言：
谢谢老师，摆错地方了。组合框2 改为CheckedComboBox1 代码怎样修改.
代码不需要改。
Dim cbo As WinForm.ComboBox = e.Form.controls("ComboBox2")
改成
Dim cbo As WinForm.CheckedComboBox = e.Form.controls("CheckedComboBox1")
[此贴子已经被作者于2017/11/28 9:01:53编辑过]