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

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