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

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

是的