专家坐堂-[求助]有请Bin,组合框怎样获取所有表名Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]有请Bin,组合框怎样获取所有表名  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=53974)

--  作者：xokxiao
--  发布时间：2014/7/19 3:14:00
--  [求助]有请Bin,组合框怎样获取所有表名

组合框ComboBox3获取所有表名,

ComboBox4获取ComboBox3选中表的列名

蓝色部分不会写,请指教

Dim s As String
For Each dt As DataTable In DataTables
    If dt.Name <> "授权表" Then
        s = s & "|" & dt.Name
    End If
Next
e.Form.Controls("ComboBox3").ComboList = s

Dim rstr As String
For Each c As Col In Tables("s").Cols
    rstr = rstr & c.Name & "|"
Next
rstr =rstr.Trim("|")

Dim cmb As WinForm.ComboBox = e.Form.Controls("ComboBox4")
cmb.ComboList = rstr\'

[此贴子已经被作者于2014-7-19 21:26:13编辑过]

--  作者：Bin
--  发布时间：2014/7/19 9:05:00
--
For Each c As Col In Tables(e.Form.Controls("ComboBox3").Text).Cols

--  作者：xokxiao
--  发布时间：2014/7/19 11:22:00
--

以下是引用Bin在2014-7-19 9:05:00的发言：
For Each c As Col In Tables(e.Form.Controls("ComboBox3").Text).Cols

这样就可以For Each c As Col In Tables("授权表").Cols

授权表一替换e.Form.Controls("ComboBox3").Text就不行

此主题相关图片如下：未命名1.jpg

[此贴子已经被作者于2014-7-19 12:29:42编辑过]

--  作者：Bin
--  发布时间：2014/7/19 14:16:00
--
要把
if e.Form.Controls("ComboBox3").Text <> "" then
Dim rstr As String
For Each c As Col In Tables(e.Form.Controls("ComboBox3").Text).Cols
    rstr = rstr & c.Name & "|"
Next
rstr =rstr.Trim("|")
Dim cmb As WinForm.ComboBox = e.Form.Controls("ComboBox4")
cmb.ComboList = rstr\'
end if
这个代码放到ComboBox4 Enter事件

--  作者：xokxiao
--  发布时间：2014/7/19 16:22:00
--

以下是引用Bin在2014-7-19 14:16:00的发言：
要把
if e.Form.Controls("ComboBox3").Text <> "" then

Dim rstr As String

For Each c As Col In Tables(e.Form.Controls("ComboBox3").Text).Cols

    rstr = rstr & c.Name & "|"
Next
rstr =rstr.Trim("|")

Dim cmb As WinForm.ComboBox = e.Form.Controls("ComboBox4")
cmb.ComboList = rstr\'

end if

这个代码放到ComboBox4 Enter事件

上面的搞好了,谢谢

在问一个新问题,我想这里所有表名加入

此主题相关图片如下：未命名3.jpg

不想在此设定

此主题相关图片如下：未命名4.jpg

[此贴子已经被作者于2014-7-19 16:47:04编辑过]

--  作者：xokxiao
--  发布时间：2014/7/19 21:27:00
--

--  作者：有点甜
--  发布时间：2014/7/20 9:54:00
--
If e.Col.Name = "表名" Then
    Dim clist As String = ""
    For Each dt As DataTable In DataTables
        clist &= dt.Name & "|"
    Next
    e.Col.ComboList = clist.TrimEnd("|")
End If

--  作者：xokxiao
--  发布时间：2014/7/20 11:46:00
--

以下是引用有点甜在2014-7-20 9:54:00的发言：
If e.Col.Name = "表名" Then
    Dim clist As String = ""
    For Each dt As DataTable In DataTables
        clist &= dt.Name & "|"
    Next
    e.Col.ComboList = clist.TrimEnd("|")
End If

我是新手，不好意思，在麻烦下

这段代码放到那，定义是那个表、那列

--  作者：有点甜
--  发布时间：2014/7/20 11:49:00
--
在授权表，prepareEdit事件

--  作者：xokxiao
--  发布时间：2014/7/20 12:11:00
--

以下是引用有点甜在2014-7-20 11:49:00的发言：
在授权表，prepareEdit事件

谢谢，谢谢所有热心的...........