- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于行复选框的奇怪现象！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=124427)
-- 发布时间：2018/9/6 9:37:00
-- 关于行复选框的奇怪现象！
明明选定了一行，却提示两行，奇了怪了
代码如下：
Dim rs As new List(of Row)
For Each r As Row In t.Rows
If r.Checked Then
rs.Add(r)
End If
Next
MessageBox.Show("表的总行数为 " & t.Rows.Count)
MessageBox.Show("当前选择的行数为 " & rs.Count)
For Each r As Row In rs
MessageBox.Show("违纪日期:" & r("违纪日期"))
MessageBox.Show("违纪类别:" & r("违纪类别"))
MessageBox.Show("工号:" & r("工号"))
MessageBox.Show("姓名:" & r("姓名"))
Next
图一，提示表的总行数
此主题相关图片如下：qq截图001.png
图二，提示勾选的行数
此主题相关图片如下：qq截图002.png
图三，经过排查，箭头所指的记录没有勾选，也给算进去了。
此主题相关图片如下：qq截图003.png
[此贴子已经被作者于2018/9/6 9:40:09编辑过]
-- 发布时间：2018/9/6 9:47:00
--
1、你升级到最新版foxtable了没有？
2、会不会是你表名弄错了？
3、做一个实例发上来测试。
-- 发布时间：2018/9/6 9:51:00
--
1、程序是 8-30最新版
2、窗口只有一个表，不可能搞错。
-- 发布时间：2018/9/6 9:58:00
--
1、实例发上来测试；
2、试试 http://www.foxtable.com/webhelp/scr/1636.htm
3、试试
For i as Integer = 0 to t.rows.count-1
t.position = i
Dim r As Row = t.rows(i)
If r.Checked Then
rs.Add(r)
End If
Next
[此贴子已经被作者于2018/9/6 9:57:53编辑过]
-- 发布时间：2018/9/6 10:04:00
--
多谢，用你的代码测试正常！
为何我的代码就出问题，什么原因啊？
for each 循环也是从头到尾过一遍啊。
[此贴子已经被作者于2018/9/6 10:04:49编辑过]
-- 发布时间：2018/9/6 10:06:00
--
以下是引用bahamute在2018/9/6 10:04:00的发言：
多谢，用你的代码测试正常！
多谢，用你的代码测试正常！
为何我的代码就出问题，什么原因啊？
for each 循环也是从头到尾过一遍啊。
[此贴子已经被作者于2018/9/6 10:04:49编辑过]
如果是用3的代码测试没问题，应该是之前的一个bug没有修复。
你做个实例上来测试一下。
[此贴子已经被作者于2018/9/6 10:06:12编辑过]