明明选定了一行，却提示两行，奇了怪了代码如下：
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编辑过]
加好友 
发短信
Post By：2018/9/6 9:37:00 [显示全部帖子]
