以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请教查找数值型列代码  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=10193)
--  作者：老有所乐
--  发布时间：2011/5/25 7:43:00
--  请教查找数值型列代码

 

\'下面代码是当组合框选择表后在combobox2中列出所选表的列名,如果我只想加载数值型列名,代码应该任何改,谢谢!
Dim dt As String = e.Form.Controls("ComboBox1").text \'表名控件
Dim c As String
If DataTables.Contains(dt) Then
    For Each dc As DataCol In DataTables(dt).DataCols
        c = c & "|" & dc.Name
    Next
     Dim cmb As WinForm.ComboBox = e.Form.Controls("ComboBox2") \'列名控件
     cmb.comboList = c.Trim("|")
  End If
--  作者：狐狸爸爸
--  发布时间：2011/5/25 7:48:00
--  

http://help.foxtable.com/topics/0413.htm

 
--  作者：老有所乐
--  发布时间：2011/5/25 7:49:00
--  
看了这个,就是不会用
--  作者：狐狸爸爸
--  发布时间：2011/5/25 7:50:00
--  

Dim dt As String = e.Form.Controls("ComboBox1").text \'表名控件
Dim c As String
If DataTables.Contains(dt) Then
    For Each dc As DataCol In DataTables(dt).DataCols
        If dc.IsNumeric Then
            c = c & "|" & dc.Name
        End If
    Next
    Dim cmb As WinForm.ComboBox = e.Form.Controls("ComboBox2") \'列名控件
    cmb.comboList = c.Trim("|")
End If
--  作者：老有所乐
--  发布时间：2011/5/25 7:53:00
--  
好,谢谢!
--  作者：老有所乐
--  发布时间：2011/5/25 7:57:00
--  
另请问,商业版下载地址还是原来你们给的码
--  作者：狐狸爸爸
--  发布时间：2011/5/25 8:00:00
--  

是的