| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 如何复制筛选结果 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=152498) |
| -- 作者：yfy13338431925 -- 发布时间：2020/7/13 17:15:00 -- 如何复制筛选结果 蓝老师，以下是筛选唯一行的代码，如何将筛选结果复制到【表B]中？ If User.IsRole("审核") Then \'审核代码 Dim idx As String = "-1," Dim idx_temp As String = "" Dim pdr As DataRow = Nothing Dim count As Integer = 0 Dim cs As String = "第一列,第二列,第三列" For Each dr As DataRow In DataTables("表A").Select("", cs) Dim flag As Boolean = False If pdr IsNot Nothing Then For Each c As String In cs.split(",") If pdr(c) <> dr(c) Then flag = True Exit For End If Next End If If flag Then If count > 1 Then idx &= idx_temp End If count = 1 idx_temp = "" idx_temp &= dr("_Identify") & "," Else count += 1 idx_temp &= dr("_Identify") & "," End If pdr = dr Next If count > 1 Then idx &= idx_temp End If Tables("表A").filter = "_Identify not in (" & idx.trim(",") & ")" Else MessageBox.Show("你无审核权限!") End If Return
|
| -- 作者：有点蓝 -- 发布时间：2020/7/13 17:22:00 -- 参考： |
| -- 作者：yfy13338431925 -- 发布时间：2020/7/13 22:09:00 -- 只复制筛选结果怎么做？ 用这段代码，复制的是整个表，而不是筛选值 dim f As New
Filler |
| -- 作者：有点蓝 -- 发布时间：2020/7/13 22:18:00 -- 看帮助麻烦仔细看完 填充条件，请参考表达式的运算符和函数 和 条件表达式。 f.filter = Tables("表A").filter
[此贴子已经被作者于2020/7/13 22:18:39编辑过]
|