以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎样写代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77796)

--  作者:欧洲之巅
--  发布时间:2015/11/25 16:03:00
--  怎样写代码

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20151125154645.png
图片点击可在新窗口打开查看


怎样将比分作为条件,主胜,平局,客胜作为结果。代码应怎样写。

--  作者:大红袍
--  发布时间:2015/11/25 16:09:00
--  
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

 


--  作者:欧洲之巅
--  发布时间:2015/11/25 16:21:00
--  
我说的是把第二列的比分“1:1”作为条件,那么第三列就显示为“平局”。
                         比分“1:0”,第三列显示为“主胜”。
                         比分“1:2”,第三列显示为客胜。


刚才写的应用不到啊。

--  作者:欧洲之巅
--  发布时间:2015/11/25 16:22:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20151125160844.png
图片点击可在新窗口打开查看

--  作者:大红袍
--  发布时间:2015/11/25 16:26:00
--  

写到Datacolchanged事件,重置列

 

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

 


--  作者:欧洲之巅
--  发布时间:2015/11/25 17:19:00
--  
(第二列比分“1:0”,同时第三列半球作为条件),第四列显示为“胜”。
(第二列比分“1:2”, 同时第三列半球作为条件),第四列显示为“负”。



代码要怎样写呀


--  作者:欧洲之巅
--  发布时间:2015/11/25 17:21:00
--  
(第二列比分“1:0”,同时第三列“半球”作为条件),第四列显示为“胜”。
(第二列比分“1:2”, 同时第三列“半球”作为条件),第四列显示为“负”。

--  作者:欧洲之巅
--  发布时间:2015/11/25 17:28:00
--  
(第二列比分“1:0”,同时第三列“半球”作为条件),第四列显示为“胜”。
(第二列比分“1:2”, 同时第三列“半球”作为条件),第四列显示为“负”。
           
此主题相关图片如下:qq截图20151125164921.png
按此在新窗口浏览图片
代码要怎样写呀


--  作者:大红袍
--  发布时间:2015/11/25 17:50:00
--  
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

--  作者:欧洲之巅
--  发布时间:2015/11/25 17:58:00
--  
还有我想问同一列文字用数字来表示啊。例如“一球”转化成“1”行吗。就是说在单元格输入“一球”立刻转换成“1”。请指教。