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

共有2192人关注过本帖树形打印复制链接主题：条件

刘林

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00

条件

Post By：2017/4/14 7:41:00 [显示全部帖子]

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

老师，请问上面代码是想通过身份证号或学籍号并且毕业中学代码来找其报名号填入bmh，毕业中学代码条件可找，但加了找不到，请问怎么改，另外如再加限制条件报名号左两位为"16",怎么写条件,谢谢

刘林

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2017/4/14 9:21:00 [显示全部帖子]

Dim dr2 As DataRow = DataTables("生地报名库").sqlFind("(身份证号 = '" & dr1("sfzh") & "' or 学籍号 = '" & dr1("xjh") & "') and 毕业中学代码 = '" & dr1("byzxdm").trim() & "' and left(报名号,2) = '16'")

我改成了上面这个还是不行呢，我是取报名号左2位为"16"