以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何增加命令  (http://foxtable.com/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,序号")