AfterCheckRow事件代码设置为:
If e.Row.Checked Then For Each r As Row In e.Table.GetCheckedRows If r("_Identify") <> e.Row("_Identify") Then r.Checked = False End If NextEnd If