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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 匹配问题

共有1556人关注过本帖树形打印复制链接主题：匹配问题

刘林

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

加好友

发短信

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

匹配问题

Post By：2017/6/29 10:43:00 [只看该作者]

If e.DataCol.Name = "身份证件号" Then

If e.DataRow("年级") >= "8"

Dim drs As DataRow

If e.DataRow("身份证件号") IsNot Nothing

drs = DataTables("生地报名库").sqlFind("left(报名号,2) = '" & e.DataRow("年级代码") & "' and 身份证号 = '" & e.DataRow("身份证件号") & "'" )

Else

drs = DataTables("生地报名库").sqlFind("级 = '" & e.DataRow("班级全称") & "' and 学校名称 = '" & e.DataRow("单位名称") & "' and 姓名 = '" & e.DataRow("姓名") & "'")

End If

If drs IsNot Nothing

e.DataRow("生物_")= drs("生物")

e.DataRow("地理_")= drs("地理")

End If

老师，你好，我在datachanged事件中，想实现当有身份证号用身份证号查找匹配，如果没有身份证号就有班级全称，学校名称，姓名匹配，现在是没身份证就没有匹配起，请问如何改？

有点色

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

加好友

发短信

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

Post By：2017/6/29 10:49:00 [只看该作者]

If e.DataCol.Name = "身份证件号" Then
    If e.DataRow("年级") >= "8"
        Dim drs As DataRow
        If e.DataRow("身份证件号") IsNot Nothing
            drs = DataTables("生地报名库").sqlFind("left(报名号,2) = '" & e.DataRow("年级代码") & "' and 身份证号 = '" & e.DataRow("身份证件号") & "'" )
        End If
        If drs Is Nothing Then
            drs = DataTables("生地报名库").sqlFind("级 = '" & e.DataRow("班级全称") & "' and 学校名称 = '" & e.DataRow("单位名称") & "' and 姓名 = '" & e.DataRow("姓名") & "'")
        End If
        If drs IsNot Nothing
            e.DataRow("生物_")= drs("生物")
            e.DataRow("地理_")= drs("地理")
        End If
    End If
End If

下一主题 >> << 上一主题

主题：匹配问题