以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  外部临时表排序怎么做的  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=50286)
--  作者：guoweidong
--  发布时间：2014/5/4 10:06:00
--  外部临时表排序怎么做的
外部临时表排序怎么做的
\' args(0) 表名称 ，args(1) 后台表名， args(2) 执行SQL 注:这里使用 Select * From Table Order By 排序 DESC  这样操作是起不到排序作用的
If DataTables.Contains(args(0)) = False Then
    Dim q As new OuterTableBuilder
    q.TableName = args(0)
    q.ConnectionName = args(2)
    q.SelectString = Args(1)
    StatusBar.Message1 = "系统正在加载{" & q.TableName & "}数据中!"
    StatusBar.ProgressBar.Visible = True   
    StatusBar.ProgressBar.Value = 50
    q.Build
    StatusBar.Reset
End If
[此贴子已经被作者于2014-5-4 10:10:01编辑过]
--  作者：Bin
--  发布时间：2014/5/4 10:08:00
--  
排序设置 SORT属性即可
--  作者：狐狸爸爸
--  发布时间：2014/5/4 10:10:00
--  

楼主，问题回复的质量，取决于你提问的质量，你这样提问，真不知道怎么回复。

 

所有表的排序不都是这样的吗：

 

Tables(" 表名").Sort = "列名"

 

你提问随随便便，敷衍了事，也很难指望得到快速准确的回复。

[此贴子已经被作者于2014-5-4 10:10:56编辑过]
--  作者：狐狸爸爸
--  发布时间：2014/5/4 10:13:00
--  

嗯，你修改帖子了。

 

order只是和top配合使用，例如按日期顺序加载前100行，但是加载后并不会按日期顺序显示，你的设置sort属性：

 

Tables(" 表名").Sort = "日期"
--  作者：guoweidong
--  发布时间：2014/5/4 10:18:00
--  

我知道Table是排序的属性，问题我是调用DataTable

Functions.Execute("动态加载","流转状态","Select * From 流转状态 Order By 排序 ASC ",Vars("Data"))
Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
tab.TabPages.Clear
With DataTables("流转状态")
For Each dr As DataRow In .DataRows
Dim tp As WinForm.TabPage = tab.TabPages.Add(tab.Name & dr("_Identify"),dr("名称"))
Dim tbl As WinForm.Table
tbl = e.Form.CreateSQLTable(tab.Name & dr("_Identify"), "Select 任务编号 ,垫付金额 ,  (Select isnull(count(*),0) From 任务商品 where 任务商品.任务编号 = 任务.任务编号) as 商品数量,订单号 From 任务 Where 发布人 = \'" & QQ & "\'",Vars("Data"))
tbl.Dock = Windows.Forms.DockStyle.Fill
tp.AddControl(tbl)
If Tables.Contains(e.Form.Name & "_" & tp.Name) Then
With Tables( e.Form.Name & "_" & tp.Name )
.DataTable.GlobalHandler.BeforeShowContextMenu = True
.AllowEdit = False
Functions.Execute("设置表格自定义样式", .Name )
End With
End If
Next
End With
tab.Visible = True

 

已改成Table去取了

[此贴子已经被作者于2014-5-4 10:22:26编辑过]
--  作者：Bin
--  发布时间：2014/5/4 10:21:00
--  
设置Tables("流转状态").SORT即可