“查找序号”按钮

For Each r As Row In Tables("兑现").Rows

    Dim fdr As DataRow = DataTables("财政").find("乡镇= \'" & r("乡镇") & "\' and 村名= \'" & r("村名") & "\' and 组别= \'" & r("组别") & "\' and 姓名 = \'" & r("户名") & "\'")

    If fdr IsNot Nothing Then

        r("序号")=fdr("序号")

    End If

Next

这是"财政"表中的“姓名”与"兑现"表中的"户名"完全相同时。要实现模糊查找，只要是同乡镇同村名同组别同姓，名字中同音不同字如白素贞、白素珍、白树贞、白树珍或王军、王金、王  军即为同一人，并提示是否更改。

 你这种功能，是无法实现的。

 如果要做，判断和处理的例外很多。

 简单的，你可以加一列获取名字的首字母，然后匹配首字母，但不会太准确

http://www.foxtable.com/help/topics/1270.htm

也不麻烦。

你只需要多加一列，根据名字取出首字母存储。

然后，查询的时候，根据字母列查找，就可以列出差不多几个同音的名字了，虽然不太精确

 取字母参考，写到datacolchanged事件

http://www.foxtable.com/help/topics/1270.htm