Foxtable(狐表)用户栏目专家坐堂 → 动态设置列宽


  共有4362人关注过本帖树形打印复制链接

主题:动态设置列宽

帅哥哟,离线,有人找我吗?
rgbjwjb
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:651 积分:6614 威望:0 精华:0 注册:2016/12/27 21:05:00
动态设置列宽  发帖心情 Post By:2023/8/29 9:30:00 [显示全部帖子]

我在设计的窗口中有两个控件:命令按钮BT,表控件dt(绑定表A),表A的字段(f1,f2,f3,f4......),我想实现点击“BT”,自定各列的列宽,请指教,谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
rgbjwjb
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:651 积分:6614 威望:0 精华:0 注册:2016/12/27 21:05:00
  发帖心情 Post By:2023/8/29 11:04:00 [显示全部帖子]

我是想设计一个窗体,打开该窗体后
1、自动列出表中的所有字段,
2、在每个字段后自加一列,可以输入各字段的列宽,
输入各字段的列宽值后,
点击确定后,原先的表的列宽就自动变更好了
请指教,谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
rgbjwjb
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:651 积分:6614 威望:0 精华:0 注册:2016/12/27 21:05:00
  发帖心情 Post By:2023/8/29 16:21:00 [显示全部帖子]

我只能增加一列,麻烦老师帮修改一下,谢谢!
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:列宽设置.foxdb


 回到顶部
帅哥哟,离线,有人找我吗?
rgbjwjb
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:651 积分:6614 威望:0 精华:0 注册:2016/12/27 21:05:00
  发帖心情 Post By:2023/8/29 22:31:00 [显示全部帖子]

我已做根据老师的指点做了修改;另外
我在“确定”按钮的代码为:
Dim tb As Table = Tables("列宽设置表")
tb.Save
Dim str As String
For r As Integer = 0 To tb.Rows.Count - 1 '开始填入该列内容
    Str = str & tb.Rows(r)("列名") & "|" & tb.Rows(r)("列宽") & "|"
Next
Tables("发放失败表").SetColVisibleWidth("str")
不知代码有没有问题?
还有就是代码不能保存,打开后代码久没有了,请问什么原因?请指教,谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
rgbjwjb
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:651 积分:6614 威望:0 精华:0 注册:2016/12/27 21:05:00
  发帖心情 Post By:2023/8/30 8:12:00 [显示全部帖子]

msgbox("str"):只显示数据表的最后一个字段,输入列宽后,所有列都隐藏了
msgbox(str):保存时提示出错,

 回到顶部
帅哥哟,离线,有人找我吗?
rgbjwjb
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:651 积分:6614 威望:0 精华:0 注册:2016/12/27 21:05:00
  发帖心情 Post By:2023/9/1 16:38:00 [显示全部帖子]

在“结算维护|结算修改”窗体中,我点击“显示列设置”按钮后,已将不要显示的列设为“-1”了,重新打开后这些字段还是显示,请问如何修改才能让这些列不显示?请指教,谢谢!
链接:https://pan.baidu.com/s/1IHyBe7gygwPNNvSg6eqO-g?pwd=a7pc 
提取码:a7pc 



 回到顶部