参考:http://www.foxtable.com/webhelp/topics/0223.htm
Dim Mark As Integer = 180
If Mark >= 180 Then
OutPut.Show(9)
ElseIf Mark >= 160 Then
OutPut.Show(8)
……
ElseIf Mark >= 40 Then
OutPut.Show(2)
Else
OutPut.Show(1)
End If
谢谢版主!按您的代码得到这样的提示:语法错误,<"Mark">运算符猴缺少操作数。不解,恳求赐教,谢谢!
如180数值来源于列,是否这样引用(因为在易表里是这样的)
Dim Mark As Integer = [KR1]
If Mark >= 180 Then
OutPut.Show(9)
ElseIf Mark >= 160 Then
OutPut.Show(8)
……
ElseIf Mark >= 40 Then
OutPut.Show(2)
Else
OutPut.Show(1)
End If
省略号的意思是中间省略了很多代码,自己参考补充完整
补充了
Dim Mark As Integer = 180
If Mark >= 180 Then
OutPut.Show(9)
ElseIf Mark >= 160 Then
OutPut.Show(8)
ElseIf Mark >= 140 Then
OutPut.Show(7)
ElseIf Mark >= 120 Then
OutPut.Show(6)
ElseIf Mark >= 100 Then
OutPut.Show(5)
ElseIf Mark >= 80 Then
OutPut.Show(4)
ElseIf Mark >= 60 Then
OutPut.Show(3)
ElseIf Mark >= 40 Then
OutPut.Show(2)
Else
OutPut.Show(1)
End If