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" '老师，主要用于抽奖时的重新排序，没有数据表，只有后台数据，这个排序应该怎么写。
加好友 
发短信
Post By：2019/12/9 21:20:00 [只看该作者]
