主题：[求助]程序如何实现统计和赋值

此主题相关图片如下：qq截图20160330200154.jpg

根据99家平均概率如何在G列显示每场比赛最高的两个概率通过胜平负显示？

 

 

上传foxtable例子。

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

点击浏览该文件:管理项目3.table

是不是上传这个？

Dim t As Table = Tables("交易盈亏")
For i As Integer = 0 To t.Rows.count - 1 Step 3
    Dim r1 As Row = t.Rows(i)
    Dim r2 As Row = t.Rows(i+1)
    Dim r3 As Row = t.Rows(i+2)
    Dim str As String = ""
    If r1("平均概率") > r3("平均概率") Then
        str = "胜平"
    Else
        str = "负平"
    End If
    r1("胜平负") = str
    r2("胜平负") = str
    r3("胜平负") = str
Next

 不对哦，在场次2中阿富汗和新加坡的胜平负的平均概率分别为：34.38%  、 30.40% 、35.22 %  那么应该在胜平负的列中显示是最大两个值的概率应该是“负胜”

Dim t As Table = Tables("交易盈亏")
t.sort = "比赛场次, _Sortkey"
For i As Integer = 0 To t.Rows.count - 1 Step 3
    Dim r1 As Row = t.Rows(i)
    Dim r2 As Row = t.Rows(i+1)
    Dim r3 As Row = t.Rows(i+2)
    r1("第九列") = "胜"
    r2("第九列") = "平"
    r3("第九列") = "负"
Next
t.sort = "比赛场次, 平均概率 desc"
For i As Integer = 0 To t.Rows.count - 1 Step 3
    Dim r1 As Row = t.Rows(i)
    Dim r2 As Row = t.Rows(i+1)
    Dim r3 As Row = t.Rows(i+2)
    Dim str As String = ""
    str = r1("第九列") & r2("第九列")
    r1("胜平负") = str
    r2("胜平负") = str
    r3("胜平负") = str
Next
t.sort = ""

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

点击浏览该文件:管理项目3.table

 

 

在表属性事件中datacolchanged添加了该代码，但还是显示结果不对。

第三场应是胜平的，但显示结果是胜负

1、那一列改成数值列啊；

 

2、单独做一个按钮计算啊，不要写到datacolchanged里面啊。

在foxtable例子中"交易盈亏"添加代码后是能实现了， 但我把真实数据的表格导入进来还是不能实现...  请红袍大师帮我修改下..
在真实数据数据是否不能根据场次来排序？ 因为每一期都会有相同场次号。

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

点击浏览该文件:管理项目3.table