- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]按钮 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=72613)
-- 发布时间：2015/8/3 9:02:00
-- [求助]按钮
老师，筛选领涨股按钮一天只用一次同时把筛选
出来的数据发送至领涨股数据库表。领涨股数据库表每次接收的行数不超过200行。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:股票.rar |
此主题相关图片如下：图像 1.png
亲爱的老师你们好。我想通过论坛老师帮忙自己做张自己能看懂的股票数据采集表，望各位老师帮忙。
-- 发布时间：2015/8/3 9:10:00
--
狐表自己静下心来学习一下,对自己日后还是有好处的.
单纯想让人帮开发一下,你可以发到项目需求版块,有偿求助.
这边主要是做技术支持指导你完成的.
-- 发布时间：2015/8/3 9:15:00
--
我是边学习边开发的但是学习很慢，老师不要见笑，
-- 发布时间：2015/8/3 10:25:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:股票管理.table |
-- 发布时间：2015/8/3 18:07:00
--
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 "领涨数据库","股票数据库","股票数据明细"
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
老师，自动生成的排序列能否排在列的最左边。另外，排序还要通过菜单的升降按钮来进行。
-- 发布时间：2015/8/3 18:11:00
--
Tables(dt.name).Cols("排序").move(0)
Tables(dt.name).Sort = "排序 desc, 日期 desc"