主题：怎样写代码

此主题相关图片如下：qq截图20151125154645.png

If e.DataCol.Name = "比分"  Then
    Dim ary() As String = e.DataRow("比分").split(":")
    If ary.length = 1 Then
        e.DataRow("第三列") = Nothing
    Else
        If val(ary(0)) > val(ary(1)) Then
            e.DataRow("第三列") = "主胜"
        ElseIf val(ary(0)) < val(ary(1)) Then
            e.DataRow("第三列") = "客胜"
        ElseIf ary(0) = ary(1) Then
            e.DataRow("第三列") = "平局"
        End If
    End If
End If

 

我说的是把第二列的比分“1:1”作为条件，那么第三列就显示为“平局”。

此主题相关图片如下：qq截图20151125160844.png

写到Datacolchanged事件，重置列

 

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

 

（第二列比分“1:0”，同时第三列半球作为条件），第四列显示为“胜”。

（第二列比分“1:2”, 同时第三列半球作为条件)，第四列显示为“负”。 代码要怎样写呀

（第二列比分“1:0”，同时第三列“半球”作为条件），第四列显示为“胜”。

（第二列比分“1:2”, 同时第三列“半球”作为条件)，第四列显示为“负”。

（第二列比分“1:0”，同时第三列“半球”作为条件），第四列显示为“胜”。

（第二列比分“1:2”, 同时第三列“半球”作为条件)，第四列显示为“负”。

           
此主题相关图片如下：qq截图20151125164921.png

代码要怎样写呀

If e.DataCol.Name = "比分"  Then
    Dim ary() As String = e.DataRow("比分").split(":")
    If ary.length = 1 Then
        e.DataRow("第三列") = Nothing
    Else
        Dim d1 As Double = val(ary(0))
        Dim d2 As Double = val(ary(1)）
        d1 = iif(e.DataRow("第三列")="半球",d1+0.5,d1)
        If d1 > d2 Then
            e.DataRow("第四列") = "主胜"
        ElseIf d1 < d2 Then
            e.DataRow("第四列") = "客胜"
        ElseIf d1 = d2 Then
            e.DataRow("第四列") = "平局"
        End If
    End If
End If

还有我想问同一列文字用数字来表示啊。例如“一球”转化成“1”行吗。就是说在单元格输入“一球”立刻转换成“1”。请指教。