以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  有劳袍哥完善一下  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70333)
--  作者：hbhb
--  发布时间：2015/6/19 9:46:00
--  有劳袍哥完善一下
大师：好！
上次您修改完善的（关于代码窗口显示表标题的代码）好像有点小问题，就是选中dacadol单选钮后，单击表名，都显示datatables("表a")？
--  作者：大红袍
--  发布时间：2015/6/19 9:48:00
--  
 本来就是那样的。
--  作者：hbhb
--  发布时间：2015/6/19 9:56:00
--  
不是，原来是如果您选择的是表b,双击就是datatable(“表b”）,现在是表名选择后，双击还是上一次选中的表名？
--  作者：大红袍
--  发布时间：2015/6/19 10:03:00
--  

 全局代码

 

Public Sub cmb_TextChanged(sender As Object,e As EventArgs)
Dim cmb = sender.parent.Controls("cmbDataTables")
Dim lbox = sender.parent.parent.panel2.Controls("lstFields")

Dim tname = sender.Text.Split(" ")(0)
cmb.Text = tname
lbox.Items.Clear
If DataTables.contains(tname) Then
    lbox.Items.Add(tname)
    For i As Integer = 1 To DataTables(tname).DataCols.Count
        Dim dc = DataTables(tname).DataCols(i - 1)
        lbox.Items.Add(dc.Name)
    Next
    lbox.Items.Add("----------------")
    lbox.Items.Add(tname & " " & DataTables(tname).Caption)
    For i As Integer = 1 To DataTables(tname).DataCols.Count
        Dim dc = DataTables(tname).DataCols(i - 1)
        lbox.Items.Add(dc.Name & " " & dc.Caption)
    Next
End If
End Sub