在表的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
![dvubb 图片点击可在新窗口打开查看](UploadFile/2018-9/20189131773433345.png)