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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]数据加载

共有2739人关注过本帖树形打印复制链接主题：[求助]数据加载

江南小城

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00

[求助]数据加载 发帖心情

Post By：2015/7/29 17:53:00 [只看该作者]

老师，在窗口中加载数据报错。另外"实时数据“表不需要进行排序。望老师帮忙修改。谢谢

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

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/29 18:02:00 [只看该作者]

汗，问问题有头没尾。

那个窗口，怎么操作后报错。不需要排序，哪个窗口怎么操作不需要排序。

江南小城

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00

Post By：2015/7/29 19:31:00 [只看该作者]

实时数据窗口加载报错，实时数据表不需要进行排序操作。排序代码在目录树窗口中，望老师帮忙修改。

[此贴子已经被作者于2015/7/29 19:32:30编辑过]

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/29 19:47:00 [只看该作者]

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

江南小城

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00

Post By：2015/7/29 20:59:00 [只看该作者]

老师，我要在下午3.30过后把表A（实时数据）的行复制到表B(数据库)能否直接合并到后台的数据表中（表A和表B的列名称相同的，表A和表B合并不是覆盖）。通过按钮发送数据。

大红袍

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/29 21:01:00 [只看该作者]

http://www.foxtable.com/help/topics/0680.htm

江南小城

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00

Post By：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))

大红袍

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：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

江南小城

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00

Post By：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 "领涨数据库","股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).Cols("排序").move(0)

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

End If

大红袍

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/5 18:46:00 [只看该作者]

上面这段代码，只是加载的时候运行。数据越多，肯定越慢。

下一主题 >> << 上一主题

总数 12 1 2 下一页

主题：[求助]数据加载