标题：请教查找数值型列代码

'下面代码是当组合框选择表后在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

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

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

是的