共8 条记录, 每页显示 10 条, 页签: [1]

标题：排名自动生成问题？

1楼

大雪山 发表于：2011/6/2 17:17:00

按日期排出每天大单排名的公式如何做？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目4.table

2楼

mr725 发表于：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编辑过]

3楼

狐狸爸爸 发表于：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

4楼

大雪山 发表于：2011/6/3 1:20:00

谢谢 mr725和狐狸爸爸为我解决问题，此程序放在何处，能帮我做好上传吗？

5楼

程兴刚 发表于：2011/6/3 2:13:00

以下是引用大雪山在2011-6-3 1:20:00的发言：

谢谢 mr725和狐狸爸爸为我解决问题，此程序放在何处，能帮我做好上传吗？

您需要先看帮助！

6楼

狐狸爸爸 发表于：2011/6/3 7:14:00

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目38.table

7楼

大雪山 发表于：2011/6/3 17:17:00

狐狸老爸此程序能改成按日期汇总排名就非常满意，能再帮我改写吗？

8楼

狐狸爸爸 发表于：2011/6/3 23:48:00

我不太明白你的意思。

共8 条记录, 每页显示 10 条, 页签: [1]