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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 引用列

共有2922人关注过本帖树形打印复制链接主题：引用列

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/26 11:30:00 [显示全部帖子]

For Each r As Row In t.Rows
        If DataTables("缴费信息").Compute("Count(学生姓名)","学期 = '" & r("学期") & "' And 学生姓名 = '"& e.Form.Controls("学生姓名").Text & "' And 缴费项目 = '餐费'") = 0 Then
            r("午餐") = ""
        Else
            r("午餐") = "√"
        End If
        Dim fdr As DataRow = DataTables("缴费信息").find("学期 = '" & r("学期") & "' And 学生姓名 = '"& e.Form.Controls("学生姓名").Text & "' and 缴费项目 = '车费' and 接送地点 is not null")
        If fdr IsNot Nothing Then
            r("接送地点") = fdr("接送地点")
        End If
        fdr = DataTables("问题学生").find("学期 = '" & r("学期") & "' And 学生姓名 = '"& e.Form.Controls("学生姓名").Text & "'")
        If fdr IsNot Nothing Then
            r("违纪原因") = fdr("违规原因")
        End If
    Next