我要选中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
加好友 
发短信
Post By：2018/10/6 13:44:00 [只看该作者]
