以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何增加命令  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=161302)
--  作者：13796361423
--  发布时间：2021/3/12 14:16:00
--  如何增加命令
dataTables("表A").replacefor("第三列","AB","第一列=230")
 
以上命令如果我想要第一列和第二列都等于230， 第三列等于AB ， 请问如何实现？  
dataTables("表A").replacefor("第三列","AB","第一列=230"+","第二列=230")
--  作者：有点蓝
--  发布时间：2021/3/12 14:18:00
--  
参考：http://www.foxtable.com/webhelp/topics/0102.htm，看看and的说明

dataTables("表A").replacefor("第三列","AB","第一列=230 and 第二列=230")
--  作者：13796361423
--  发布时间：2021/3/12 14:54:00
--  请问下面的命令是错在哪？

DataTables("表A").replacefor("第三列","AB","第二列 is nothing")

第二列为空值如何表达？

--  作者：有点蓝
--  发布时间：2021/3/12 14:55:00
--  
DataTables("表A").replacefor("第三列","AB","第二列 is null")
--  作者：13796361423
--  发布时间：2021/3/12 15:59:00
--  增加排序

Dim drs1 As List(Of DataRow) = DataTables("初三鹤立考点").Select("paixu % 2 = 0","成绩 desc")
Dim drs2 As List(Of DataRow) = DataTables("初三鹤立考点").Select("paixu % 2 = 1","成绩 desc")
Dim cnt As Integer = math.min(drs1.count,drs2.count)
Dim idx As Integer = 1
For i As Integer = 0 To cnt - 1
drs1(i)("排序") = idx
idx += 1
drs2(i)("排序") = idx
idx += 1
Next


If drs1.count > cnt Then
For i As Integer = cnt To drs1.count - 1
drs1(i)("排序") = idx
idx += 1
Next
Else
For i As Integer = cnt To drs2.count - 1
drs2(i)("排序") = idx
idx += 1
Next
End If


Tables("初三鹤立考点").sort = "排序"

 

 

 

 

请问我想在这个命令（Dim drs1 As List(Of DataRow) = DataTables("初三鹤立考点").Select("paixu % 2 = 0","成绩 desc")）上加一上序号升序，请问如何实现？

Dim drs1 As List(Of DataRow) = DataTables("初三鹤立考点").Select("paixu % 2 = 0","序号（升序）and 成绩 desc")  是这样吗？
--  作者：有点蓝
--  发布时间：2021/3/12 16:07:00
--  
Dim drs1 As List(Of DataRow) = DataTables("初三鹤立考点").Select("paixu % 2 = 0","序号,成绩 desc")

如果先按成绩，再按照序号
Dim drs1 As List(Of DataRow) = DataTables("初三鹤立考点").Select("paixu % 2 = 0","成绩 desc,序号")