- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]数据加载 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=72401)
-- 发布时间：2015/7/29 17:53:00
-- [求助]数据加载
老师，在窗口中加载数据报错。另外"实时数据“表不需要进行排序。望老师帮忙修改。谢谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:股票管理.rar |
-- 发布时间：2015/7/29 18:02:00
--
汗，问问题有头没尾。
那个窗口，怎么操作后报错。不需要排序，哪个窗口怎么操作不需要排序。
-- 发布时间：2015/7/29 19:31:00
--
实时数据窗口加载报错，实时数据表不需要进行排序操作。排序代码在目录树窗口中，望老师帮忙修改。
[此贴子已经被作者于2015/7/29 19:32:30编辑过]
-- 发布时间：2015/7/29 19:47:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:股票管理.zip |
-- 发布时间：2015/7/29 20:59:00
--
老师，我要在下午3.30过后把表A（实时数据） 的行复制到表B(数据库)能否直接合并到后台的数据表中（表A和表B的列名称相同的，表A和表B合并不是覆盖）。通过按钮发送数据。
-- 发布时间：2015/7/29 21:01:00
--
http://www.foxtable.com/help/topics/0680.htm
-- 发布时间：2015/7/29 21:36:00
--
老师我要通过按钮整表复制。求老师修改
Dim dr1 As DataRow = CurrentTable.Current.DataRow
Dim nma() As String = {"第一列","第二列","第三列","第四列"} \'A表数据来源列
Dim nmb() As String = {"第一列","第二列","第三列","第四列"} \'B表数据接收列
Dim dr As DataRow = DataTables("表B").AddNew
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = dr1(nma(i))
Next
-- 发布时间：2015/7/29 21:37:00
--
Dim Cols1() As String = {"来源列一","来源列二","来源列三"}
Dim Cols2() As String = {"接收列一","接收列二","接收列三"}
For Each dr1 As DataRow In DataTables("表A").Select("")
Dim dr2 As DataRow = DataTables("表B").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
Next
http://www.foxtable.com/help/topics/1533.htm
-- 发布时间：2015/8/5 17:53: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).Cols("排序").move(0)
Tables(dt.name).Sort = "排序 desc, 日期 desc"
End If
-- 发布时间：2015/8/5 18:46:00
--
上面这段代码，只是加载的时候运行。数据越多，肯定越慢。