主题：引用列

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目17.zip

想在窗口1_Table1增加了接送地点和违纪原因列，接送地点列内容从缴费信息表接送地点列引用，违纪原因列内容从问题学生信息表违纪原因列引用，如下图：
此主题相关图片如下：qq截图20151026105703.png

请指点代码，谢谢！

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

谢谢！

 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("违规原因")

‘可不可以查询表，缴费信息和退费信息

 

    fdr = DataTables("缴费信息").Select(" Select 学期,学生姓名,b.fa piao号 * {缴费信息} a Inner JOIN {退费信息} b ON b.fa piao号 = a.fa piao号").find("学期 = '" & r("学期") & "'and 缴费项目 = '学费' and 学生姓名 = '"& e.form.Controls("学生姓名").Text & "'")
        If fdr IsNot Nothing Then

            r("fa piao号") = fdr("fa piao号")

End If

  Next

呃，分别查缴费信息和退费信息不就好了？类似2楼的方法。

因为退费信息表没有学期和学生姓名列，是通过fa piao号关联

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目17.zip

这样查

 

fdr = DataTables("缴费信息").find("学期 = '" & r("学期") & "'and 缴费项目 = '学费' and 学生姓名 = '"& e.form.Controls("学生姓名").Text & "'")

If fdr IsNot Nothing Then

    r("fa piao号") = fdr("fa piao号")

    fdr = DataTables("退费信息").find("fa piao号 = '" & fdr("fa piao号") & "'")

    If fdr IsNot Nothing Then

End If

出现这种提示

此主题相关图片如下：qq截图20151026232922.png

谢谢老师，好休息了，太辛苦了。

7楼的代码不会报错。