Dim Filter As String
Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
If e.node.Text = "加载所有数据" Then
Filter = ""
Else
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
Select Case tab.SelectedPage.text
Case "领涨数据库","股piao数据库","股piao数据明细"
Select Case e.Node.Level
Case 0
Filter ="[名称] = '" & dr("名称") & "'"
Case 1
Filter ="[名称] = '" & dr("名称") & "' And [代码] = '" & dr("代码") & "'"
End Select
'Case Else
' Select Case e.Node.Level
' Case 0
' Filter ="[板块] = '" & dr("板块") & "'"
' Case 1
' ' Filter ="[板块] = '" & dr("板块") & "' And [领涨股] = '" & dr("领涨股") & "'"
'End Select
End Select
End If
Dim dt As DataTable = DataTables(tab.SelectedPage.text)
dt.LoadFilter = Filter
dt.Load()
If dt.DataCols.Contains("名称") Then
If dt.DataCols.Contains("排序") = False
dt.DataCols.Add("排序", Gettype(Integer))
End If
For Each dr As DataRow In dt.DataRows
dr("排序") = dt.Compute("count(名称)", "名称='" & dr("名称") & "'")
Next
Tables(dt.name).Sort = "排序 desc, 日期 desc"
End If
老师，自动生成的排序列能否排在列的最左边。另外，排序还要通过菜单的升降按钮来进行。
加好友 
发短信
Post By：2015/8/3 9:02:00 [显示全部帖子]
此主题相关图片如下：图像 1.png