以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  调整列宽的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105368)

--  作者：rjh4078 --  发布时间：2017/8/17 19:26:00 --  调整列宽的问题 在AfterResizeColumn事件中加入下面代码 If _UserName<>"" Then     Dim dr As DataRow=DataTables("表格式").find("表名=\'" & e.Table.name & "\' and 用户=\'" & _username & "\'")     MessageBox.show("1")     If dr Is Nothing Then         MessageBox.show("2")         Dim r As Row=Tables("表格式").addnew         r("表名")=e.Table.name         r("用户")=_UserName         r("顺序")=e.Table.GetColVisibleWidth()     Else         MessageBox.show(dr("顺序")  & vbcrlf & e.Table.GetColVisibleWidth())         dr("顺序")=e.Table.GetColVisibleWidth()         ‘’为什么拖动列宽从e.Table.GetColVisibleWidth()返回的数据没有变化？         MessageBox.show(e.Table.Cols(e.Position).name & e.Table.Cols(e.Position).Width)     End If     DataTables("表格式").save End If

--  作者：有点甜 --  发布时间：2017/8/17 19:49:00 --    我测试没问题 output.show(e.Table.GetColVisibleWidth())