在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
加好友 
发短信
Post By：2017/8/17 19:26:00 [显示全部帖子]
