[求助]关于跨表取数的问题[已解决] - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于跨表取数的问题[已解决]

共有2010人关注过本帖树形打印复制链接主题：[求助]关于跨表取数的问题[已解决]

jackfreeman

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

加好友

发短信

等级：婴狐帖子：21 积分：228 威望：0 精华：0 注册：2015/1/8 13:45:00

[求助]关于跨表取数的问题[已解决] 发帖心情

Post By：2018/1/25 16:52:00 [只看该作者]

说明：一个成绩汇总表，一个成绩查询表，表结构不要变化，姓名和学科是匹配字段，需将匹配成绩填充至成绩查询表中。

成绩查询表从成绩汇总表中查找姓名和学科，然后填充成绩查询表中的数据。

问题：匹配学科时发生问题，如图中有底色部分。

求助大神帮帮忙！在线等！

If e.DataCol.name="姓名" OrElse e.DataCol.name="学科" Then

If e.DataRow.IsNull("姓名")=False AndAlso e.DataRow.IsNull("学科")=False Then

Dim dr As DataRow = DataTables("成绩汇总").Find("姓名='" & e.DataRow("姓名") & "'")

If dr IsNot Nothing Then

Dim d As Integer = val(e.DataRow("学科"))

e.DataRow("成绩")=dr(Tables("成绩汇总").cols(d).name)

下载信息 [文件大小：下载次数： ]
点击浏览该文件:测试.table

End If

[此贴子已经被作者于2018/1/25 17:09:33编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/25 17:05:00 [只看该作者]

If e.DataCol.name="姓名" OrElse e.DataCol.name="学科" Then
    If e.DataRow.IsNull("姓名")=False AndAlso e.DataRow.IsNull("学科")=False Then
        Dim dr As DataRow = DataTables("成绩汇总").Find("姓名='" & e.DataRow("姓名") & "'")
        If dr IsNot Nothing Then
            If dr.DataTable.DataCols.Contains(e.DataRow("学科")) Then
                e.DataRow("成绩")=dr(e.DataRow("学科"))
            Else
                e.DataRow("成绩")=Nothing
            End If
        End If
    End If
End If

jackfreeman

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

加好友

发短信

等级：婴狐帖子：21 积分：228 威望：0 精华：0 注册：2015/1/8 13:45:00

Post By：2018/1/25 17:09:00 [只看该作者]

谢谢版主，非常之感谢，学习了！

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

主题：[求助]关于跨表取数的问题[已解决]