以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 表格行首的复选框互斥选择  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=44859)
--  作者：kunny
--  发布时间：2014/1/10 13:20:00
--  [求助] 表格行首的复选框互斥选择
表格使用了复选框，要让复选框只能单选，如何实现呢？老是陷入到死循环中。
--  作者：lsy
--  发布时间：2014/1/10 13:47:00
--  

包含这张表的例子传上来。
--  作者：kunny
--  发布时间：2014/1/10 13:57:00
--  
Dim drs As List(of Row) = Tables("frmScoreChart_tblRole").GetCheckedRows()
Dim ci As Integer = e.Row("_Identify")
For Each dr As Row In drs
    If dr("_Identify") <> ci Then
        dr.Checked = False
    End If
Next
--  作者：Bin
--  发布时间：2014/1/10 14:03:00
--  
if e.row.Checked  then
Dim drs As List(of Row) = Tables("frmScoreChart_tblRole").GetCheckedRows()
Dim ci As Integer = e.Row("_Identify")
For Each dr As Row In drs
    If dr("_Identify") <> ci Then
        dr.Checked = False
    End If
Next
end if
[此贴子已经被作者于2014-1-10 14:03:49编辑过]
--  作者：lsy
--  发布时间：2014/1/10 14:49:00
--  
For Each r As Row In e.Table.Rows
    If e.Row.Checked AndAlso r("_Identify") <> e.Row("_Identify")Then
        r.Checked = False
    End If
Next
--  作者：kunny
--  发布时间：2014/1/10 15:01:00
--  
多谢！