以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  功能实现  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=56021)

--  作者:man9997
--  发布时间:2014/8/27 23:33:00
--  功能实现
老师 我的表格现在实现了自动输入

例如输入张三, 如果表格有一个叫张三的人,他会自动填写张三的信息

但是现在问题来了,如果还有另外的人也叫张三 ,表格默认的还是第一张三的信息,这个我修改了,保存


如果下次我第三次再次输入张三,张三就有了不同的两个信息,我想实现如果出现这种情况,能不能出现一个提示框,列出了两个张三的信息可供我选择

我现在DataColChanged的代码
Select Case e.DataCol.Name
    Case "姓名"
        Dim fdr As DataRow = DataTables("基础信息表").Find("姓名 = \'" & e.DataRow("姓名") & "\'")
        If fdr Is Nothing Then
            fdr = e.DataTable.Find("姓名 = \'" & e.DataRow("姓名") & "\'")
        End If
        If fdr IsNot Nothing Then
            e.DataRow("电话") = fdr("电话")
            e.DataRow("地址") = fdr("地址")
            e.DataRow("邮编") = fdr("邮编")
        End If
End Select


--  作者:y2287958
--  发布时间:2014/8/28 6:22:00
--  
http://www.foxtable.com/help/topics/2465.htm