Dim r As Row = Tables("表A").Current
Dim fdr As DataRow = DataTables("财政").find("乡镇= '" & r("乡镇") & "' and 村名= '" & r("村名") & "' and 组别= '" & r("组别") & "' and 姓名 = '" & r("户名") & "'")
If fdr IsNot Nothing Then r("序号")=fdr("序号") End If
加好友 
发短信
Post By：2014/11/20 14:53:00 [只看该作者]
