以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于数据表的排序  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=144055)
--  作者：2900819580
--  发布时间：2019/12/9 21:20:00
--  [求助]关于数据表的排序
Dim tb As Table = Tables(e.Form.Name & "_Table1")
Dim cmd As new SQLCommand
cmd.CommandText = "sel ect * from {main} where 名称 = \'抽签\' and [fid] = 0"
Dim dt As DataTable = cmd.ExecuteReader
dt.DataCols.Add("ch",Gettype(Integer))
For Each r As DataRow In dt.DataRows
    r("ch") = rand.Next(100)
Next
Tables(dt.Name).Sort = "ch"  \'老师，主要用于抽奖时的重新排序，没有数据表，只有后台数据，这个排序应该怎么写。
--  作者：有点蓝
--  发布时间：2019/12/9 22:14:00
--  
Dim tb As Table = Tables(e.Form.Name & "_Table1")
Dim cmd As new SQLCommand
cmd.CommandText = "sel ect * from {main} where 名称 = \'抽签\' and [fid] = 0"
Dim dt As DataTable = cmd.ExecuteReader
dt.DataCols.Add("ch",Gettype(Integer))
For Each r As DataRow In dt.DataRows
    r("ch") = rand.Next(100)
Next
tb.DataSource = dt
tb.Sort = "ch"
--  作者：2900819580
--  发布时间：2019/12/10 10:20:00
--  
以下是引用有点蓝在2019/12/9 22:14:00的发言：
Dim tb As Table = Tables(e.Form.Name & "_Table1")
Dim cmd As new SQLCommand
cmd.CommandText = "sel ect * from {main} where 名称 = \'抽签\' and [fid] = 0"
Dim dt As DataTable = cmd.ExecuteReader
dt.DataCols.Add("ch",Gettype(Integer))
For Each r As DataRow In dt.DataRows
    r("ch") = rand.Next(100)
Next
tb.DataSource = dt
tb.Sort = "ch"

老师，我表达不清，你误解了，

我不想要窗体，因为是WEB上的，没有窗体，也没有Table，怎么办？

 

Dim cmd As new SQLCommand
cmd.CommandText = "sel ect * from {main} where 名称 = \'抽签\' and [fid] = 0"
Dim dt As DataTable = cmd.ExecuteReader
dt.DataCols.Add("ch",Gettype(Integer))
For Each r As DataRow In dt.DataRows
    r("ch") = rand.Next(100)
Next
Tables(dt.Name).Sort = "ch"  \'老师，主要用于抽奖时的重新排序，没有数据表，只有后台数据，这个排序应该怎么写。

 
--  作者：有点蓝
--  发布时间：2019/12/10 10:23:00
--  
Dim cmd As new SQLCommand
cmd.CommandText = "sel ect * from {main} where 名称 = \'抽签\' and [fid] = 0"
Dim dt As DataTable = cmd.ExecuteReader
dt.DataCols.Add("ch",Gettype(Integer))
For Each r As DataRow In dt.DataRows
    r("ch") = rand.Next(100)
Next

For Each r As DataRow In dt.select("","ch") 
    msgbox(r("ch"))
Next