以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  表像素  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=86530)
--  作者：良才
--  发布时间：2016/6/19 23:26:00
--  表像素

求表像素代码？请指点，谢谢！

If  e.Form.Controls("Table1").Width > 300  Then
--  作者：大红袍
--  发布时间：2016/6/20 1:41:00
--  

你代码没问题的啊。

 

你要所有列累加的宽度？

 

Dim sum As Double = 0
For Each c As Col In e.Form.Controls("Table1").Table.cols
    If c.Visible = True Then
        sum += iif(c.width=-1, 98, c.width)
    End If
Next
msgbox(sum)
--  作者：良才
--  发布时间：2016/6/20 8:48:00
--  
谢谢
--  作者：良才
--  发布时间：2016/6/20 11:25:00
--  

这样代码该怎么写？谢谢

If  sum > 300  Then

[此贴子已经被作者于2016/6/20 11:25:27编辑过]
--  作者：大红袍
--  发布时间：2016/6/20 11:28:00
--  

Dim sum As Double = 0
For Each c As Col In e.Form.Controls("Table1").Table.cols
    If c.Visible = True Then
        sum += iif(c.width=-1, 98, c.width)
    End If
Next

If  sum > 300  Then

 

End If
--  作者：良才
--  发布时间：2016/6/20 12:28:00
--  
谢谢
--  作者：Liangcai
--  发布时间：2017/4/13 10:19:00
--  
谢谢