[求助]按钮 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，筛选领涨股按钮一天只用一次同时把筛选

出来的数据发送至领涨股数据库表。领涨股数据库表每次接收的行数不超过200行。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:股piao.rar

此主题相关图片如下：图像 1.png

亲爱的老师你们好。我想通过论坛老师帮忙自己做张自己能看懂的股piao数据采集表，望各位老师帮忙。

狐表自己静下心来学习一下,对自己日后还是有好处的.

单纯想让人帮开发一下,你可以发到项目需求版块,有偿求助.

这边主要是做技术支持指导你完成的.

我是边学习边开发的但是学习很慢，老师不要见笑，

下载信息 [文件大小：下载次数： ]
点击浏览该文件:股piao管理.table

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("名称") & "'")

Tables(dt.name).Sort = "排序 desc, 日期 desc"

End If

老师，自动生成的排序列能否排在列的最左边。另外，排序还要通过菜单的升降按钮来进行。

Tables(dt.name).Cols("排序").move(0)

Tables(dt.name).Sort = "排序 desc, 日期 desc"

主题：[求助]按钮