以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  drawcell处理后显示的数据导出问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=102373)
--  作者：刘林
--  发布时间：2017/6/18 20:18:00
--  drawcell处理后显示的数据导出问题

Dim dr As DataRow = DataTables("考试名称").find("考试名称 = \'" & e.Row("考试名称") & "\' and 学段 = \'"& e.row("学段") & "\' And 显示为等级 = \'True\'")
If dr IsNot Nothing
Dim dr1 As Row = Tables("用户").Current
  If dr1("同意录分")=False
   Select Case e.Col.name
        Case "语文_A"
            If E.Row("语文_A")>=85
                e.text ="优"
            End If
           
            If E.Row("语文_A")>=75 And  E.Row("语文_A")<=84
                e.text ="良"
            End If
           
            If E.Row("语文_A")>=60 And  E.Row("语文_A")<=74
                e.text ="合格"
            End If
            If E.Row("语文_A")<=59
                e.text ="不合格"
            End If
        Case "数学_A"
            If E.Row("数学_A")>=85
                e.text ="优"
            End If
           
            If E.Row("数学_A")>=75 And  E.Row("数学_A")<=84
                e.text ="良"
            End If
           
            If E.Row("数学_A")>=60 And  E.Row("数学_A")<=74
                e.text ="合格"
            End If
            If E.Row("数学_A")<=59
                e.text ="不合格"
            End If
           
        Case "语文_语总"
            If E.Row("语文_语总")>=85
                e.text ="优"
            End If
           
            If E.Row("语文_语总")>=75 And  E.Row("语文_语总")<=84
                e.text ="良"
            End If
           
            If E.Row("语文_语总")>=60 And  E.Row("语文_语总")<=74
                e.text ="合格"
            End If
            If E.Row("语文_语总")<=59
                e.text ="不合格"
            End If
        Case "数学_数总"
            If E.Row("数学_数总")>=85
                e.text ="优"
            End If
           
            If E.Row("数学_数总")>=75 And  E.Row("数学_数总")<=84
                e.text ="良"
            End If
           
            If E.Row("数学_数总")>=60 And  E.Row("数学_数总")<=74
                e.text ="合格"
            End If
            If E.Row("数学_数总")<=59
                e.text ="不合格"
            End If
        Case "总分"
            e.text ="***"          
    End Select
  End If
End If

 

 

drawcell事件中按等级显示，之前窗口中做了个导出功能，但在的问题的当显示等级时导出的结果还是分，我的需要是显示为等级导出也为等级，显示分为时导出也是分，也就是所见即所导，这怎么办，谢谢
--  作者：有点色
--  发布时间：2017/6/18 21:10:00
--  
 你应该对应的多加一列，如【语文_A_等级】，填写分数的时候，对应的给其赋值为等级或分数。
--  作者：刘林
--  发布时间：2017/6/19 13:51:00
--  
这个有另外的办法没有，这样麻烦了，因为有的考试又不显示等级
--  作者：有点色
--  发布时间：2017/6/19 14:07:00
--  

不行，没办法。