以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  获取 列长度问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83057)
--  作者：凡夫俗子
--  发布时间：2016/3/30 14:47:00
--  获取 列长度问题
Dim dt As DataTable
Dim cmd As New SQLCommand
cmd.ConnectionName = vars("ConName")
cmd.CommandText="S elect * From [" & vars("TableName") & "] where 1=2"
dt= cmd.ExecuteReader
For Each dc As DataCol In dt.DataCols
    Dim r As Row = tb2.addnew
    r("第一列") = dc.Name
    r("第二列") = dc.datatype.Name
    r("第三列") = dc.MaxLength
Next

这样获得的 列长度 为什么 都是 -1
就不能正确获得列的长度呢
--  作者：大红袍
--  发布时间：2016/3/30 14:52:00
--  

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
--  作者：大红袍
--  发布时间：2016/3/30 14:53:00
--  

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