'Dim t As Table = Tables("表C") Dim t As Table = e.Form.controls("Table1").Table Dim width As Double = t.grid.width - t.grid.cols(0).widthdisplay Dim sum As Double = 0 For Each c As object In t.grid.cols If c.visible = True Then sum += c.widthdisplay End If Next t.grid.Cols("订单号码").widthdisplay += t.grid.width-sum
加好友 
发短信
Post By：2017/9/27 11:46:00 [显示全部帖子]
