以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于获取数据表列的左边距问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194644)

--  作者:裴保民
--  发布时间:2025/1/1 20:01:00
--  关于获取数据表列的左边距问题
怎么动态获取窗体表某个数据列在窗体的左边距?
--  作者:有点蓝
--  发布时间:2025/1/2 8:54:00
--  
获取某个列的列宽:http://www.foxtable.com/webhelp/topics/0567.htm
或者:msgbox(Tables("表A").Grid.Cols("第三列").WidthDisplay)

遍历某个列左边所有列,把列宽加起来

--  作者:裴保民
--  发布时间:2025/1/2 19:28:00
--  
那么多列一个一个列获取太麻烦了吧?
--  作者:有点蓝
--  发布时间:2025/1/2 19:42:00
--  
遍历列:http://www.foxtable.com/webhelp/topics/0561.htm
--  作者:裴保民
--  发布时间:2025/1/2 19:44:00
--  
怎么遍历某个列左边所有列呢?
--  作者:有点蓝
--  发布时间:2025/1/2 19:52:00
--  
从0开始遍历到选定的列:http://www.foxtable.com/webhelp/topics/0447.htm
--  作者:裴保民
--  发布时间:2025/1/2 20:47:00
--  
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编辑过]

--  作者:有点蓝
--  发布时间:2025/1/2 21:32:00
--  
估算一下偏多少,加上这个值呗
--  作者:裴保民
--  发布时间:2025/1/2 21:37:00
--  
差5个是不是行号的原因呀?


--  作者:有点蓝
--  发布时间:2025/1/2 21:47:00
--  
行号或者控件边框