Foxtable(狐表)用户栏目专家坐堂 → 窗口表不显示滚动条没生效


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

主题:窗口表不显示滚动条没生效

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


加好友 发短信
等级:九尾狐 帖子:2160 积分:14940 威望:0 精华:0 注册:2016/3/28 16:57:00
窗口表不显示滚动条没生效  发帖心情 Post By:2021/10/14 16:24:00 [只看该作者]

老师,窗口表以下代码设置了不显示滚动条没生效,哪儿有问题呢,代码也执行了?

With Tables("委托支付统计窗口_Table1")
    .DataSource = g.BuildDataSource()
    .DataTable.DataCols.Add("序号", Gettype(Integer))  '新增序号列
    .DataTable.DataCols.Add("备注", Gettype(String))  '新增序号列
    .Cols("序号").Move(0)
    For Each r As Row In Tables("委托支付统计窗口_Table1").Rows
        r("序号") = r.index+1
    Next
    .DefaultRowHeight  = 25 '所有行高
    .DataTable.DataCols("付款金额").SetFormat("0.00")
    .Cols("序号").TextAlign = TextAlignEnum.Center     '居中
    .Cols("款项类别").TextAlign = TextAlignEnum.Center '居中
    .Cols("付款金额").TextAlign = TextAlignEnum.Right  '右对齐
    .Cols("序号").Width = 60
    .Cols("款项类别").Width = 100
    .Cols("付款金额").Width = 120
    .ExtendLastCol = True  '自动列宽
msgbox(1)
    .grid.ScrollBars = 0 '禁止滚动条,0 无 1 横向 2 纵向 3 横向纵向
msgbox(2)
End With

[此贴子已经被作者于2021/10/14 16:27:53编辑过]

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


加好友 发短信
等级:超级版主 帖子:76067 积分:385907 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/10/14 16:34:00 [只看该作者]

检查是不是有其它代码影响

另外这种非官方的底层用法,官方不保证可用,能用就用,不能用只能自行解决
[此贴子已经被作者于2021/10/14 16:34:29编辑过]

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


加好友 发短信
等级:九尾狐 帖子:2160 积分:14940 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2021/10/14 16:40:00 [只看该作者]

我代码写到窗口加载后,直接统计后台所有数据,隐藏就没效,相同代码,我写到上面的项目名称筛选框,筛选不同的项目,就有效!

窗口打开后,在执行隐藏代码,又是有效的

[此贴子已经被作者于2021/10/14 16:45:31编辑过]

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


加好友 发短信
等级:超级版主 帖子:76067 积分:385907 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/10/14 16:54:00 [只看该作者]

那就是有其它代码影响了

 回到顶部