主题：获取 列长度问题

Dim q As new OuterTableBuilder
q.TableName = "test"

'q.ConnectionName = vars("ConName")
q.SelectString = "Select * Fr om {表a} Where 1=2"
q.Build
For Each dc As DataCol In DataTables("test").DataCols
    Dim r As DataRow = DataTables("表B").addnew
    r("第一列") = dc.Name
    r("第二列") = dc.datatype.Name
    r("第三列") = dc.MaxLength
Next

http://www.foxtable.com/help/topics/1279.htm