以下是引用有点蓝在2019/12/9 22:14:00的发言：Dim tb As Table = Tables(e.Form.Name & "_Table1")Dim cmd As new SQLCommandcmd.CommandText = "sel ect * from {main} where 名称 = '抽签' and [fid] = 0"Dim dt As DataTable = cmd.ExecuteReaderdt.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" '老师，主要用于抽奖时的重新排序，没有数据表，只有后台数据，这个排序应该怎么写。
加好友 
发短信
Post By：2019/12/9 21:20:00 [只看该作者]
