以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  麻烦老师看看代码。为何width值不对呢  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=139316)
--  作者：houseer
--  发布时间：2019/8/11 3:15:00
--  麻烦老师看看代码。为何width值不对呢
Dim t As Table
Dim sql As String


If Forms("客户管理").Opened Then
    t = Forms("客户管理").Controls("table1").Table
    For i = 0 To t.Cols.Count - 1
        If sql > "" Then
            sql = sql & "|"
        End If
        MessageBox.show(t.Cols(i).Width)  \'----这里为什么弹出的总是-1？
        sql = sql & t.Cols(i).Name & "|" & CStr(t.Cols(i).Width)
    Next
End If
--  作者：有点蓝
--  发布时间：2019/8/11 21:42:00
--  
-1表示默认的列宽70，如果是-1，统一设置70即可。

如果不是窗口设计时绑定的，比如设置了DataSource，就是这样的