Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于数据表的排序


  共有2473人关注过本帖树形打印复制链接

主题：[求助]关于数据表的排序
帅哥哟，离线，有人找我吗？
2900819580
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1327 积分：9648 威望：0 精华：0 注册：2015/6/30 8:46:00 		[求助]关于数据表的排序  发帖心情 Post By：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"  '老师，主要用于抽奖时的重新排序，没有数据表，只有后台数据，这个排序应该怎么写。

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107718 积分：547917 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1327 积分：9648 威望：0 精华：0 注册：2015/6/30 8:46:00 		  发帖心情 Post By：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"  '老师，主要用于抽奖时的重新排序，没有数据表，只有后台数据，这个排序应该怎么写。

 
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107718 积分：547917 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03101 秒, 4 次数据查询