Dim dt As Table = Tables("中考报名_table3")
If dt.Rows.count>0
For Each dr1 As Row In dt.Rows
Dim dr2 As DataRow = DataTables("生地报名库").sqlFind("(身份证号 = '" & dr1("sfzh") & "' or 学籍号 = '" & dr1("xjh") & "') and 毕业中学代码 = '" & trim("byzxdm") & "'")
If dr2 IsNot Nothing
dr1("bmh") = trim(dr2("报名号"))
End If
Next
End If
老师，请问上面代码是想通过身份证号或学籍号并且毕业中学代码来找其报名号填入bmh，毕业中学代码条件可找，但加了找不到，请问怎么改，另外如再加限制条件报名号左两位为"16",怎么写条件,谢谢
加好友 
发短信
Post By：2017/4/14 7:41:00 [只看该作者]
