主题：[求助]

beforeCheckRow事件

If e.Table.GetCheckedRows.count > 0 AndAlso e.Row.Checked = False Then
    Dim r1 As Row = e.Table.GetCheckedRows(0)
    If r1("汇率") = 0 AndAlso e.Row("汇率") <> 0 Then
        e.cancel = True
    ElseIf r1("汇率") <> 0 AndAlso e.Row("汇率") = 0 Then
        e.cancel = True
    End If
End If