以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  获取列宽 有的列会丢失  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=123713)

--  作者:visoni
--  发布时间:2018/8/21 17:52:00
--  获取列宽 有的列会丢失

Dim t2 As Table = e.Form.controls("table1").Table
Dim t3 As Table = Tables("视图")
Dim S As String
Dim RD As Row
S=t2.DataTable.name
Dim F As Integer =  t3.FindRow("表名 =\'" & S & "\'")
RD = t3.rows(F)
Dim QQ As String
QQ=RD("列设置")
Tables("销售出货单_Table1").SetColVisibleWidth("\'" & QQ & "\'")


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20180821175616.jpg
图片点击可在新窗口打开查看


 单号前面的日期列没有了 !!!

老师这个是什么问题 怎么

是列设置 字段太多了吗??


--  作者:有点蓝
--  发布时间:2018/8/21 20:02:00
--  
Dim dr As DataRow = DataTables("视图").Find("表名 =\'" & S & "\'")
If dr IsNot Nothing AndAlso dr.IsNull("列设置") = False Then
    Dim t2 As Table = e.Form.controls("table1").Table
    msgbox(dr("列设置")) \'这里弹出什么内容?
    t2.SetColVisibleWidth(dr("列设置"))
End If

--  作者:visoni
--  发布时间:2018/8/22 8:50:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:45.jpg
图片点击可在新窗口打开查看

--  作者:visoni
--  发布时间:2018/8/22 8:56:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:dsas.jpg
图片点击可在新窗口打开查看

--  作者:visoni
--  发布时间:2018/8/22 8:57:00
--  
这里有问题  用你给的表达方式可以  谢谢老师