主题：[求助]模糊查找

 

“查找序号”按钮

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

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