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

If e.Col.IsNumeric AndAlso e.Col.Name <> "总分" Then
If e.Row.IsNull(e.Col.Name) = False

    Dim fdr As DataRow = DataTables("学生成绩等级").Find("学期 = '" & e.Row("学期") & "' And 班级 = '" & e.Row("班级") & "' ")
    Dim hg As Integer = 60
    Dim yx As Integer = 80
    If fdr IsNot Nothing Then
        hg = fdr("合格")
        yx = fdr("优秀")
    End If

    If e.Row(e.Col.Name) < hg Then
        DataTables("学生成绩").AddUserStyle("红牌", Color.Red, Color.DarkSlateGray)
        e.Style = "红牌"

    Else If e.Row(e.Col.Name) > yx Then

        DataTables("学生成绩").AddUserStyle("绿牌",Color.FromARGB(0, 192, 0), Color.DarkSlateGray)
        e.Style = "绿牌"
    End If
End If
End If

[此贴子已经被作者于2014-8-26 14:26:40编辑过]

主题：跨表引用