- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]程序如何实现统计和赋值 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=83072)
-- 发布时间：2016/3/30 20:08:00
-- [求助]程序如何实现统计和赋值
此主题相关图片如下：qq截图20160330200154.jpg
根据99家平均概率如何在G列显示每场比赛最高的两个概率通过胜平负显示？
-- 发布时间：2016/3/30 20:12:00
--
上传foxtable例子。
-- 发布时间：2016/3/30 20:32:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3.table |
是不是上传这个？
-- 发布时间：2016/3/30 20:42:00
--
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
-- 发布时间：2016/3/30 20:58:00
--
不对哦，在场次2中阿富汗和新加坡的胜平负的平均概率分别为：34.38% 、 30.40% 、35.22 % 那么应该在胜平负的列中显示是最大两个值的概率应该是“负胜”
-- 发布时间：2016/3/30 21:57:00
--
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 = ""
-- 发布时间：2016/3/30 22:35:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目3.table |
在表属性事件中datacolchanged添加了该代码，但还是显示结果不对。
-- 发布时间：2016/3/30 22:39:00
--
第三场应是胜平的，但显示结果是胜负
-- 发布时间：2016/3/31 1:53:00
--
1、那一列改成数值列啊；
2、单独做一个按钮计算啊，不要写到datacolchanged里面啊。
-- 发布时间：2016/4/1 0:06:00
--
在foxtable例子中"交易盈亏"添加代码后是能实现了， 但我把真实数据的表格导入进来还是不能实现... 请红袍大师帮我修改下..
在真实数据数据是否不能根据场次来排序？ 因为每一期都会有相同场次号。
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目3.table |
[此贴子已经被作者于2016/4/1 8:46:36编辑过]