我知道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编辑过]