主题：怎样写代码

If e.DataCol.Name = "比分"  Then

    Dim ary() As String = e.DataRow("比分").split(":")

    If ary.length = 1 Then

           Else

        Dim d1 As Double = val(ary(0))

        Dim d2 As Double = val(ary(1))

        If d1 - d2 > e.DataRow("终盘1") AndAlso e.DataRow("终盘1") >= 0 AndAlso e.DataRow("终盘1") <> 0.75 AndAlso e.DataRow("终盘1") <> 1.75 AndAlso e.DataRow("终盘1") <> 2.75 AndAlso e.DataRow("终盘1") <> 3.75 AndAlso e.DataRow("终盘1") <> 4.75 AndAlso e.DataRow("终盘1") <> 5.75 AndAlso e.DataRow("终盘1") <> 6.75  AndAlso e.DataRow("终盘1") <> 7.75 AndAlso e.DataRow("终盘1") <> 8.75 AndAlso e.DataRow("终盘1") <> 9.75 Then

            e.DataRow("盘口") = "赢盘"  

        ElseIf d1 - d2 > e.DataRow("终盘1") AndAlso e.DataRow("终盘1") < 0  AndAlso e.DataRow("终盘1") <> -0.25 AndAlso e.DataRow("终盘1") <> -1.25 AndAlso e.DataRow("终盘1") <> -2.25 AndAlso e.DataRow("终盘1") <> -3.25  AndAlso e.DataRow("终盘1") <> -4.25 AndAlso e.DataRow("终盘1") <> -5.25 AndAlso e.DataRow("终盘1")  <> -6.25 AndAlso e.DataRow("终盘1") <> -7.25 AndAlso e.DataRow("终盘1") <> -8.25 AndAlso e.DataRow("终盘1") <> -9.25 Then

           e.DataRow("盘口") = "输盘"  

        End If

    End If

End If

帮忙看一下是哪里空子符。我检查不出啊。