主题：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事件中按等级显示，之前窗口中做了个导出功能，但在的问题的当显示等级时导出的结果还是分，我的需要是显示为等级导出也为等级，显示分为时导出也是分，也就是所见即所导，这怎么办，谢谢

 你应该对应的多加一列，如【语文_A_等级】，填写分数的时候，对应的给其赋值为等级或分数。

这个有另外的办法没有，这样麻烦了，因为有的考试又不显示等级

不行，没办法。