關與取出的數據排序問題,在線急等!!!
這是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