主题：跨表引用

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("班级") & "'  ")

 

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

改成这样

 

DataTables("学生成绩等级").Find("学期 = '" & e.DataRow("学期") & "' And 班级 = '" & e.DataRow("班级") & "'  ")("合格")

有点甜老师发现这样错误

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

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

 

谢谢！