Dim rqs As List(Of String) = DataTables("产值调研数据").GetValues("日期")
'MessageBox.Show(rqs)
For Each rq As String In rqs
'获得该日期的全部行,按月产值降序排序
Dim drs As List(Of DataRow) = DataTables("产值调研数据").Select("[日期] = " & rq , "本月产值 DESC")
For n As Integer = 0 To drs.Count - 1 '遍历所有行
If n > 0 AndAlso drs(n)("本月产值") = drs(n - 1)("本月产值") Then '如果值和上一行相同
drs(n)("月值排名") = drs(n - 1)("月值排名") '则排名等于上一行
Else
drs(n)("月值排名") = n + 1 '设置排名
End If
Next
Next
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.8.18.1
错误所在事件：窗口,查询与统计,Button18,Click
详细错误信息：
语法错误:“00”运算符后缺少操作数。
每月的日期都是一样的，相当于按月排名，求教！！！
加好友 
发短信
Post By：2023/6/15 10:56:00 [只看该作者]
