专家坐堂-功能实现Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师我的表格现在实现了自动输入

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

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

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

我现在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