以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  提示框根据条件列出想要的信息问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=123277)

--  作者:aza520
--  发布时间:2018/8/11 9:10:00
--  提示框根据条件列出想要的信息问题
在表的DataColChanging事件设如下代码,录入重复 "户主姓名"会提示。原有的"户主姓名"都会有对应的“编号”列,怎样实现能同时在提示框中也显示原有的"户主姓名"所对应的“编号”,并且在提示框中增加一个“取消”按钮,即不添加。
If e.DataCol.Name = "户主姓名" Then
    Dim dr As DataRow 
    dr = e.DataTable.sqlFind("户主姓名 = \'" & e.NewValue & "\'")
    If dr IsNot Nothing Then
        MessageBox.Show("此户主已经存在!是否确认添加?")
    End If
End If


图片点击可在新窗口打开查看此主题相关图片如下:11111.png
图片点击可在新窗口打开查看



--  作者:有点蓝
--  发布时间:2018/8/11 9:23:00
--  
参考:http://www.foxtable.com/webhelp/scr/0326.htm