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

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

刘林

小大 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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/14 8:46:00 [只看该作者]

改成

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

关于条件的调试，你可以弹出合成的条件看是否正确，然后一个一个条件的删除，看能不能查找到数据。如

msgbox("(身份证号 = '" & dr1("sfzh") & "' or 学籍号 = '" & dr1("xjh") & "') and 毕业中学代码 = '" & byzxdm.trim() & "' and left(报名号) = '16'")

刘林

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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"