主题：跨表引用

If e.Col.IsNumeric AndAlso e.Col.Name  <> "总分" Then
    If e.Row.IsNull(e.Col.Name) = False
        If e.Row(e.Col.Name) < 60 Then
            DataTables("学生成绩").AddUserStyle("红牌", Color.Red, Color.DarkSlateGray)
            e.Style = "红牌"    

        Else If e.Row(e.Col.Name) > 90  Then
            DataTables("学生成绩").AddUserStyle("绿牌",Color.FromARGB(0, 192, 0), Color.DarkSlateGray)          
            e.Style = "绿牌"
        End If
    End If
End If

 把上面代码改成，引用 学生成绩等级 表 合格或优秀列数值

If e.Col.IsNumeric AndAlso e.Col.Name  <> "总分" Then
    If e.Row.IsNull(e.Col.Name) = False
        If e.Row(e.Col.Name) <  DataTables("学生成绩等级").Compute("合格","学期 = '" & e.DataRow("学期") & "' And 班级 = '" & e.DataRow("班级") & "'  ") Then
            DataTables("学生成绩").AddUserStyle("红牌", Color.Red, Color.DarkSlateGray)
            e.Style = "红牌"    

        Else If e.Row(e.Col.Name) > DataTables("学生成绩等级").Compute("优秀","学期 = '" & e.DataRow("学期") & "' And 班级 = '" & e.DataRow("班级") & "'  ") Then           

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

 

把< 60改成  DataTables("学生成绩等级").Compute("合格","学期 = '" & e.DataRow("学期") & "' And 班级 = '" & e.DataRow("班级") & "'  ")

 

这个代码是错误的，应怎么改？请指点  谢谢！