關與取出的數據排序問題,在線急等!!!

feilong215 2003-10-24 09:34:15
這是Class Modules中的對群組資料進行排序的,我想讓其中一個組在Treeview中顯示時一直排最後:

sSql = "Select SITEID, GROUPNAME, GROUPID From SITEGROUP ORDER BY GROUPNAME "
Set QrySelect = g_Cn.CreateQuery("", sSql)
Set Rs = QrySelect.OpenResultset(rdOpenForwardOnly)

我想在這改一下,讓"預設群組"不參加排序.在最後樹處理時最後一個加也可以的吧
為了讓大家看的明白點,我把這一整段發來看,就是最後加前面排序留下的那一個,怎樣做啊?謝謝
''''初始化主控制面板左樹
Private Sub InitTreeView()
Dim nodX As Node
Dim oNodeProvider As New CTreeNodeProvider
Dim oTreeNode As CTreeNode

#If iDebug = 1 Then
List2.AddItem "InitTreeView "
#End If
TreeView1.Visible = False

With TreeView1.Nodes
.Clear

''''Root
Set nodX = .Add(, , "ROOT", oNodeProvider.Company, 1, 1)
nodX.Tag = eRootNode

''''Sites
For Each oTreeNode In oNodeProvider.Sites
Set nodX = .Add(oTreeNode.ParentKey, tvwChild, oTreeNode.Key, oTreeNode.Name, 2, 2)
nodX.Tag = eSiteLogOff
Next

''''RemoteSites
For Each oTreeNode In oNodeProvider.RemoteSites
Set nodX = .Add(oTreeNode.ParentKey, tvwChild, oTreeNode.Key, oTreeNode.Name, 2, 2)
nodX.Tag = eRemoteSite
Next

''''Groups
For Each oTreeNode In oNodeProvider.Groups
Set nodX = .Add(oTreeNode.ParentKey, tvwChild, oTreeNode.Key, oTreeNode.Name, 3, 3)
nodX.Tag = eGroupNode
Next


''Modify By Vincent/2003/03/14 下午 02:04:30 Friday 修正原因:加入起始進度視窗
Dim nTemp As Collection
Dim iCount As Long

Set nTemp = oNodeProvider.Sensors
'@@@vincent
frmDataReciveProgress.Caption = TransText("Initiating computer directory")
frmDataReciveProgress.Show
frmDataReciveProgress.MaxValue = nTemp.Count
''''Sensors
''''將所有 Sensor 變成灰色
For Each oTreeNode In nTemp
''''Modify By Vincent/2001/10/30 PM 06:00:29 Tuesday 修正原因:加入作業平台圖示
'' If oTreeNode.Platform <> "Unknown" And oTreeNode.Platform <> "" Then
If IsSupportPlatform(oTreeNode.Platform) Then
Set nodX = .Add(oTreeNode.ParentKey, tvwChild, oTreeNode.Key, oTreeNode.Name, oTreeNode.Platform & "1", oTreeNode.Platform & "2")
Else
Set nodX = .Add(oTreeNode.ParentKey, tvwChild, oTreeNode.Key, oTreeNode.Name, 4, 5)
End If
nodX.Tag = eSensorLogOff
nodX.ForeColor = RGB(198, 198, 198)
iCount = iCount + 1
frmDataReciveProgress.NowValue = iCount
frmDataReciveProgress.Caption = TransText("Initiating computer directory") & " " & iCount & "/" & nTemp.Count
DoEvents
Next
.Item(1).Expanded = True
Unload frmDataReciveProgress
End With
TreeView1.Visible = True
End Sub
...全文
24 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
feilong215 2003-10-24
  • 打赏
  • 举报
回复
是的,我也發現了,謝謝.給分了.我沒什麼分,我一會拿朋友的號給你分,你五分鐘後來看看,接分哦,幫你升星.
yoki 2003-10-24
  • 打赏
  • 举报
回复
反了,呵呵
sSql = "Select SITEID, GROUPNAME, GROUPID From SITEGROUP ORDER BY case GroupName When '预设群组' then 1 else 0 end,GROUPNAME "
yoki 2003-10-24
  • 打赏
  • 举报
回复
你的意思是将预设群组放在最后面吗?可以这样:
sSql = "Select SITEID, GROUPNAME, GROUPID From SITEGROUP ORDER BY case GroupName When '预设群组' then 0 else 1 end,GROUPNAME "

1,216

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧