- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何筛选出已选定的行 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=45286)
-- 发布时间：2014/1/21 8:54:00
-- [求助]如何筛选出已选定的行
在表格的 DoubleClick (双击事件) 中写入以下代码:
If e.Row.Checked = True Then \'如果当前行为选定行(表格允许显示复选框)
e.Row.Checked = False \'取消选定
Else
e.Row.Checked = True \'选定当前行
End If
此主题相关图片如下：筛选出已选定行.jpg
想加入一个按钮,让表格只显示出已选定的行,(筛选出已选定的行)
请问如何实现
[此贴子已经被作者于2014-1-21 8:59:02编辑过]
-- 发布时间：2014/1/21 9:02:00
--
Dim ids As String
Dim rlist As List(of Row) = Tables("表A").GetCheckedRows
If rlist.count> 0 Then
For Each r As Row In rlist
ids = ids & ",\'" & r("_Identify") & "\'"
Next
ids= ids.Trim(",")
Tables("表A").Filter = "_IDentify In (" & ids & ")"
For Each r As Row In Tables("表A").Rows
r.Checked =True
Next
End If
-- 发布时间：2014/1/21 9:07:00
--
The expression contains undefined function call Tables().
-- 发布时间：2014/1/21 9:07:00
--
测试结果:
.NET Framework 版本：2.0.50727.3053
Foxtable 版本：2013.10.14.1
错误所在事件：
详细错误信息：
The expression contains undefined function call Tables().
-- 发布时间：2014/1/21 9:20:00
--
Dim ids As String
Dim rlist As List(of Row) = Tables("表A").GetCheckedRows
If rlist.count> 0 Then
For Each r As Row In rlist
ids = ids & "," & r("_Identify")
Next
ids = ids.Trim(",")
Tables("表A").Filter = "[_Identify] In (" & ids & ")"
End If
Dim rlist As List(of Row) = Tables("表A").GetCheckedRows
If rlist.count> 0 Then
For Each r As Row In rlist
ids = ids & "," & r("_Identify")
Next
ids = ids.Trim(",")
Tables("表A").Filter = "[_Identify] In (" & ids & ")"
End If
[此贴子已经被作者于2014-1-21 9:20:03编辑过]
-- 发布时间：2014/1/21 9:24:00
--
我测试都没问题的啊,奇怪.你上个例子看看你是怎么做的.
-- 发布时间：2014/1/21 9:35:00
--
For Each r As Row In Tables("窗口1_Table1").Rows
If r.Checked = False Then
r.DataRow.Remove()
End If
Next
-- 发布时间：2014/1/21 10:03:00
--
谢谢 狐狸爸爸 没问题了,但又出了新问题
如果显示所有未选记录
-- 发布时间：2014/1/21 10:04:00
--
谢谢 狐狸爸爸 没问题了,
但又出了新问题
如果显示所有未选记录
原已选定的记录,也成了未选定状态,当恢复(所有记录,筛选为空时,Tables("表A").Filter="")
-- 发布时间：2014/1/21 10:07:00
--
谢谢,能使用了,但又出了新的问题