Foxtable(狐表)用户栏目专家坐堂 → [原创]隐显列的设置


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

主题:[原创]隐显列的设置

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


加好友 发短信
等级:幼狐 帖子:156 积分:1328 威望:0 精华:0 注册:2016/6/21 12:27:00
[原创]隐显列的设置  发帖心情 Post By:2022/4/12 14:56:00 [只看该作者]

各位大神:

          有一个主表ID与子表ID关联,子表有10列分别为:1,2,3,4,5,6,7,8,9,10 ,初始只固定显示:1,2,3列,后面的列根据需要让它显示并填入数据,保存后退出系统,再次打开窗口查询还能正常显示数据

 

 

 

                                                                                             谢谢


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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/4/12 15:12:00 [只看该作者]


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


加好友 发短信
等级:幼狐 帖子:156 积分:1328 威望:0 精华:0 注册:2016/6/21 12:27:00
  发帖心情 Post By:2022/4/12 15:36:00 [只看该作者]

接上:

        后面的列根据需要(比如:单号123中需要显示4,5,6列并有数据,重新查询后4,5,6列能显示出来。单号456中需要显示7,8,9,10列并有数据,重新查询后7,8,9,10列能显示出来,而4,5,6列不显示)


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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/4/12 15:47:00 [只看该作者]

查询后使用代控制不就行了,比如

Tables("订单").Cols("1").Visible = False
Tables("订单").Cols("4").Visible = true

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


加好友 发短信
等级:幼狐 帖子:156 积分:1328 威望:0 精华:0 注册:2016/6/21 12:27:00
  发帖心情 Post By:2022/4/12 16:57:00 [只看该作者]

大师:

       查询后能不能判断为有数据显示,无数据不显示,这样代码怎么写


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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/4/12 17:09:00 [只看该作者]


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


加好友 发短信
等级:幼狐 帖子:156 积分:1328 威望:0 精华:0 注册:2016/6/21 12:27:00
  发帖心情 Post By:2022/4/13 12:31:00 [只看该作者]

大师:

我在“颜色尺码”表的“Afterload"中写入:

If  DataTables("颜色尺码").DataRows(0).IsNull("订单款号") Then
    MessageBox.Show("错误,第一行没有数据!")
    Tables("订单主表.颜色尺码").Cols("尺码66").Visible = True
End  If

 

报错:索引超出了数组界限


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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/4/13 13:32:00 [只看该作者]

If e.DataTable.DataRows.count > 0 andalso  e.DataTable.DataRows(0).IsNull("订单款号") Then
    MessageBox.Show("错误,第一行没有数据!")
    Tables("订单主表.颜色尺码").Cols("尺码66").Visible = True
End  If

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


加好友 发短信
等级:幼狐 帖子:156 积分:1328 威望:0 精华:0 注册:2016/6/21 12:27:00
  发帖心情 Post By:2022/4/18 13:43:00 [只看该作者]

If e.DataTable.DataRows.count > 0 andalso  e.DataTable.DataRows(0).IsNull("订单款号") Then
    MessageBox.Show("错误,第一行没有数据!")
    Tables("订单主表.颜色尺码").Cols("尺码66").Visible = True
End  If

这个代码写好后,重新查询也不会显示的数据的列出来

 


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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/4/18 13:49:00 [只看该作者]

怎么做的“重新查询”?

 回到顶部
总数 17 1 2 下一页