我要选中checkbox的时候弹出提示,确认后再赋值,下面的代码一直不对,请老师帮忙!
下面代码放在表属性CurrentChanged中的,不知道对不对?
Dim Result As DialogResult
Dim dr As DataRow = e.DataRow(这句也不通过)
If dr("缺考") = False Then
MessageBox.Show("确定要选择缺考吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
dr("缺考") = True
Else
dr("缺考") = False
End If
Return
Else
MessageBox.Show("确定要取消吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
dr("缺考") = False
Else
dr("缺考") = True
End If
Return
End If