获取某个列的列宽:
http://www.foxtable.com/webhelp/topics/0567.htm或者:msgbox(Tables("表A").Grid.Cols("第三列").WidthDisplay)
遍历某个列左边所有列,把列宽加起来
Dim t As Table = Tables("表A")
Dim c As Col = t.Cols("第三列")
Dim kdhj As Integer=0
With t
Dim i As Integer
i=.Cols.Count
For i = 0 To c.Index
kdhj =kdhj+.Grid.Cols(i).WidthDisplay
Next
End With
Forms("窗口1").Controls("TextBox3").Width = Tables("表A").Cols("第三列").Widt
Forms("窗口1").Controls("TextBox3").Left = kdhj
代码有问题吗?怎么运行后文本框的左边偏左呀
此主题相关图片如下:screenshot_20250102_205020.png
[此贴子已经被作者于2025/1/2 20:50:48编辑过]