Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共1 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:条件代码部分不执行,请指导,谢谢

1楼
lgz518 发表于:2022/2/19 12:37:00
下面代码,红字代码不执行,如何处理,谢谢

If e.DataCol.Name="成绩" Then            

    If e.NewValue  Is Nothing   Then
        e.DataRow("等级")= Nothing
'如果"成绩">= 105的条件,"等级"字段列=("A")        
    ElseIf e.NewValue>= 105 Then                 
        e.DataRow("等级")=("A")
     
 '如果95<="成绩" <105的条件,"等级"字段列=("B")             
    ElseIf e.NewValue >= 95 Or e.NewValue < 105 Then
        e.DataRow("等级")=("B")

 '如果85<="成绩" <95的条件,"等级"字段列=("C")             
    ElseIf e.NewValue >= 85 Or e.NewValue < 95 Then
        e.DataRow("等级")=("C")

'如果70<="成绩" <85的条件,"等级"字段列=("D")        
    ElseIf e.NewValue >= 70 Or e.NewValue < 85  Then
        e.DataRow("等级")=("D")

'如果"成绩" <70的条件,等级"字段列=("E")     
   
    Else
        e.DataRow("等级")=("E")
    End If
End If
共1 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .01953 s, 2 queries.