以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  介于两值之间  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=53678)
--  作者：Lc
--  发布时间：2014/7/13 10:54:00
--  介于两值之间

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("学生成绩_Table1").AddUserStyle("红牌",Color.FromARGB(0, 192, 0), Color.DarkSlateGray) 
      e.Style = "红牌"
Else If e.Row(e.Col.Name) >= 60 AndAlso e.Row(e.Col.Name) < 80  Then
      DataTables("学生成绩_Table1").AddUserStyle("黄牌", Color.Yellow, Color.DarkSlateGray)
      e.Style = "黄牌"
End IfElse If e.Row(e.Col.Name) > 80  Then
      DataTables("学生成绩_Table1").AddUserStyle("绿牌",Color.FromARGB(0, 192, 0), Color.DarkSlateGray) 

      e.Style = "绿牌"

End If
End If

 

这段代码:Else If e.Row(e.Col.Name) >= 60 AndAlso e.Row(e.Col.Name) < 80  Then
错在哪?请指点.谢谢!
--  作者：有点甜
--  发布时间：2014/7/13 10:56:00
--  
Else If e.Row(e.Col.Name) >= 60 AndAlso e.Row(e.Col.Name) <= 80  Then
--  作者：有点甜
--  发布时间：2014/7/13 10:58:00
--  
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("学生成绩_Table1").AddUserStyle("红牌",Color.FromARGB(0, 192, 0), Color.DarkSlateGray)
            e.Style = "红牌"
        Else If e.Row(e.Col.Name) <= 80  Then
            DataTables("学生成绩_Table1").AddUserStyle("黄牌", Color.Yellow, Color.DarkSlateGray)
            e.Style = "黄牌"
        Else If e.Row(e.Col.Name) > 80  Then
            DataTables("学生成绩_Table1").AddUserStyle("绿牌",Color.FromARGB(0, 192, 0), Color.DarkSlateGray)          
            e.Style = "绿牌"
        End If
    End If
End If
--  作者：Lc
--  发布时间：2014/7/13 11:36:00
--  

谢谢有点甜老师