在表的DataColChanging事件设以下代码，新增一行，户主姓名列输入姓名“潘进海”，与上一列姓名相同时会弹出提示框（如图），想实现已存在户主所对应的协议书编号也进行提示，如图中，想将提示框中的提示改为“此户主已经存在!其协议书编号为：FD-1-HS-CQ-078，是否确认添加?”
If e.DataCol.Name = "户主姓名" Then
Dim dr As DataRow
dr = e.DataTable.sqlFind("户主姓名 = '" & e.NewValue & "'")
If dr IsNot Nothing Then
Dim Result As DialogResult
Result = MessageBox.Show("此户主已经存在!是否确认添加?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
e.Cancel = False
Else
e.Cancel = True
End If
End If
End If
此主题相关图片如下：1111.png
加好友 
发短信
Post By：2018/9/13 17:13:00 [显示全部帖子]
