请教查找数值型列代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教查找数值型列代码

共有11610人关注过本帖树形打印复制链接主题：请教查找数值型列代码

老有所乐

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：746 积分：6673 威望：0 精华：1 注册：2008/9/1 11:46:00

请教查找数值型列代码 发帖心情

Post By：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

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/5/25 7:48:00 [只看该作者]

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

老有所乐

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：746 积分：6673 威望：0 精华：1 注册：2008/9/1 11:46:00

Post By：2011/5/25 7:49:00 [只看该作者]

看了这个,就是不会用

狐狸爸爸

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：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