- 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=145332)
-- 发布时间：2020/1/16 15:09:00
-- 随机选中行问题
此主题相关图片如下：tim图片20200116150638.png
通过其他算法已自动选中 3 行 ，我想这在3行中随机选中其中一行就行了（只需要一行，另外二个选中的取消选中状态），这个咋写？
-- 发布时间：2020/1/16 15:15:00
--
那为什么不在其他算法里选中一行后就不再继续选择退出不就行了。
Dim rs As List(of Row) = Tables("表A").GetCheckedRows
For i As Integer = 1 To rs.Count - 1
rs(i).checked = false
Next
-- 发布时间：2020/1/16 22:15:00
--
此主题相关图片如下：20200116221103.png
是这样的 蓝老师 我是根据项目的得分 自动选中行的，但是如上图 作文项目是2分的话，会选中二行（因为有二类小项）。我只需要其中一行但不能每次都默认选第一个，所以我要随机选中一行。
-- 发布时间：2020/1/17 9:36:00
--
Dim rs As List(of Row) = Tables("表A").GetCheckedRows
Dim r As Integer = Rand.Next(0,rs.Count )
For i As Integer = 0 To rs.Count - 1
If i <> r
rs(i).checked = False
End If
Next