Foxtable(狐表)用户栏目专家坐堂 → [求助] 怎么用代码隐藏行呢?


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

主题:[求助] 怎么用代码隐藏行呢?

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


加好友 发短信
等级:超级版主 帖子:112380 积分:572162 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/12/24 22:03:00 [显示全部帖子]


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


加好友 发短信
等级:超级版主 帖子:112380 积分:572162 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/12/24 22:56:00 [显示全部帖子]

tables.filter = "_Identify not in(1,2,3)"

1,2,3使用隐藏的行的主键

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


加好友 发短信
等级:超级版主 帖子:112380 积分:572162 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/12/24 23:14:00 [显示全部帖子]

http://www.foxtable.com/webhelp/scr/0102.htm

In 运算符用来判断某一个值是否在指定的一系列值中,例如:

[国籍] In ('中国','美国','英国','法国','俄罗斯')

表示判断国籍是否是上述五国之一,显然这比用OR来连接多个表达式要简洁很多。

记得数值型的列,值不要用单引号括起来,例如:

[订单号] In (1, 3, 4, 6, 7,12)

而日期型的列,值需要用符号#括起来,例如:

[日期] In (#7/2/2012#, #7/12/2012#, #8/30/2012#)

同样如果在 In 运算符之前,加上 Not 关键词,表示不在指定的一系列值之中,例如:

[国籍] Not In ('中国','美国','英国','法国','俄罗斯')

表示国籍非上述指定的五国。


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


加好友 发短信
等级:超级版主 帖子:112380 积分:572162 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/12/25 17:38:00 [显示全部帖子]

上传实例测试

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


加好友 发短信
等级:超级版主 帖子:112380 积分:572162 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/12/25 20:41:00 [显示全部帖子]

Dim Lst As new List(of String)
For Each dr As DataRow In DataTables("表C").DataRows  ' 遍历 "表C" 的数据行
    If dr.IsNull("应用场所") = False Then  ' 如果 "应用场所" 列不为空
        Dim plcs() As String = dr("应用场所").Split(",")  ' 将 "应用场所" 列的内容拆分成数组
        Lst.AddRange(plcs)
    End If
Next


For i As Integer = 1 To Tables("表C").grid.Rows.count-1
    If Lst.Contains(Tables("表C").grid.Rows(i)("酒店").tostring) Then
        Tables("表C").grid.Rows(i).visible = True
    Else        
        Tables("表C").grid.Rows(i).visible = False
    End If    
Next

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


加好友 发短信
等级:超级版主 帖子:112380 积分:572162 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/12/26 8:57:00 [显示全部帖子]

表格没有"酒店"这个列

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


加好友 发短信
等级:超级版主 帖子:112380 积分:572162 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/12/26 14:08:00 [显示全部帖子]

去掉其他代码
For i As Integer = 1 To Tables("表C").grid.Rows.count-1
    If Lst.Contains(Tables("表C").grid.Rows(i)("应用场所").tostring().contains("酒店")) Then
        Tables("表C").grid.Rows(i).visible = True
    Else        
        Tables("表C").grid.Rows(i).visible = False
    End If    
Next

 回到顶部