主题：代码计算结果不一致问题

Dim Sj1,Sj2,Sj3,Sj4,Sj5 As Integer
For Each dr As DataRow In DataTables("KmSz").DataRows
    If dr("一级") <> "" Then
        Sj1 = 1
    ElseIf dr("一级") = "" Then
        Sj1 = 0
    ElseIf dr("二级") <> "" Then
        Sj2 = 1
    ElseIf dr("二级") = "" Then
        Sj2 = 0
    ElseIf dr("三级") <> "" Then
        Sj3 = 1
    ElseIf dr("三级") = "" Then
        Sj3 = 0
    ElseIf dr("四级") <> "" Then
        Sj4 = 1
    ElseIf dr("四级") = "" Then
        Sj4 = 0
    End If
    Sj5 = Sj1+Sj2+Sj3+Sj4
    Output.Show(Sj5)
Next

上述代码为什么与下面这段代码得到的结果不一样？

Dim Sj1,Sj2,Sj3,Sj4,Sj5 As Integer
For Each dr As DataRow In DataTables("KmSz").DataRows
    If dr("一级") <> "" Then
        Sj1 = 1
    ElseIf dr("一级") = "" Then
        Sj1 = 0
    End If
    If dr("二级") <> "" Then
        Sj2 = 1
    ElseIf dr("二级") = "" Then
        Sj2 = 0
    End If
    If dr("三级") <> "" Then
        Sj3 = 1
    ElseIf dr("三级") = "" Then
        Sj3 = 0
    End If
    If dr("四级") <> "" Then
        Sj4 = 1
    ElseIf dr("四级") = "" Then
        Sj4 = 0
    End If
    Sj5 = Sj1+Sj2+Sj3+Sj4
    Output.Show(Sj5)
Next

请问为什么

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.foxdb

狐爸你看看

这是怎么了

参考：

http://www.foxtable.com/help/topics/0223.htm

谢谢狐爸

看帮助没认真

是不是判断几个变量就要用几个IF函数

一个变量　可以用分支来判断

同一个if语句，不管有多少个分支，始终都只会执行其中一个分支，所以你的第一段代码，除了前两个分支，后面都是没有意义的。