以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]自定义窗口中表列设置  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=99382)
--  作者：liuyixin662
--  发布时间：2017/4/18 15:14:00
--  [求助]自定义窗口中表列设置
老师你好,麻烦修改一下窗口名"表设置"中"列设置"的按钮代码,
要求是打开窗口"表A,表B,表C"时根据不同用户,显示不同的列及列宽,列位置也不同
--  作者：liuyixin662
--  发布时间：2017/4/18 15:18:00
--  
老师你好,麻烦修改一下窗口名"表设置"中"列设置"的按钮代码,
要求是打开窗口"表A,表B,表C"时根据不
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:自定义窗口表列设置.zip

同用户,显示不同的列及列宽,列位置也不同
--  作者：liuyixin662
--  发布时间：2017/4/18 15:25:00
--  
要先获取表A,表B,表C的相关列字段,列宽值
--  作者：有点蓝
--  发布时间：2017/4/18 16:06:00
--  
参考：http://www.foxtable.com/webhelp/scr/1775.htm
--  作者：liuyixin662
--  发布时间：2017/4/18 16:14:00
--  
我想通过可视化的方式
--  作者：liuyixin662
--  发布时间：2017/4/18 16:15:00
--  
SetColVisibleWidth 的方法不能解决客户端的需求
--  作者：liuyixin662
--  发布时间：2017/4/18 16:16:00
--  
就是让用户自己设置列及列宽
--  作者：有点蓝
--  发布时间：2017/4/18 17:04:00
--  
Dim cb As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim drs As List(of DataRow) = DataTables("表设置").SQLSelect("用户名 = \'" & user.Name & "\'and 表名 = \'" & cb.text & "\'")
Dim cls As String = ""
For Each dr  As DataRow In drs
     cls = cls &  dr("列名") & "|" & dr("列宽") & "|"
Next
Tables(cb.text).SetColVisibleWidth(cls.TrimEnd("|"))