- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 排名自动生成问题？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=10381)
-- 发布时间：2011/6/2 17:17:00
-- 排名自动生成问题？
按日期排出每天大单排名的公式如何做？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目4.table |
-- 发布时间：2011/6/2 18:38:00
--
Dim s As String
s = DataTables("大单资金").GetComboListString("日期")
Dim n As Integer
For i As Integer = 0 To s.split("|").length -1
Dim drs As List(Of DataRow)
drs = DataTables("大单资金").Select("[日期] = \'" & s.split("|")(i) & "\'")
For Each dr As DataRow In drs
n = n + 1
dr("排名") = n
Next
n = 0
Next
[此贴子已经被作者于2011-6-2 18:39:53编辑过]
-- 发布时间：2011/6/2 20:26:00
--
改进：
For Each s As String In DataTables("大单资金").GetUniqueValues("","日期")
Dim n As Integer = 0
Dim drs As List(Of DataRow)
drs = DataTables("大单资金").Select("[日期] = \'" & s & "\'")
For Each dr As DataRow In drs
n = n + 1
dr("排名") = n
Next
Next
-- 发布时间：2011/6/3 1:20:00
--
谢谢 mr725和狐狸爸爸 为我解决问题，此程序放在何处，能帮我做好上传吗？
-- 发布时间：2011/6/3 2:13:00
--
以下是引用大雪山在2011-6-3 1:20:00的发言：
谢谢 mr725和狐狸爸爸 为我解决问题，此程序放在何处，能帮我做好上传吗？
您需要先看帮助！
-- 发布时间：2011/6/3 7:14:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目38.table |
-- 发布时间：2011/6/3 17:17:00
--
狐狸老爸 此程序能改成按日期汇总排名就非常满意，能再帮我改写吗？
-- 发布时间：2011/6/3 23:48:00
--
我不太明白你的意思。