Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]复制


  共有4227人关注过本帖树形打印复制链接

主题：[求助]复制
帅哥哟，离线，有人找我吗？
大红袍
 小大  41楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/11/13 14:17:00 [只看该作者]

Dim Cols1() As String = {"日期","名称","代码","现价"}
Dim Cols2() As String = {"交易日期","股piao名称","股piao代码","当天_收盘价"}
Dim drs As List(Of DataRow) = DataTables("股piao数据明细_Table6").Select("")
Dim p As WinForm.ProgressBar
p = e.Form.Controls("ProgressBar3")
p.Maximum =  drs.Count - 1 '设置最大值
p.Minimum = 0 '设置最小值
p.Value = 0 '设置当前值
DataTables("股piao数据明细_Table6").StopRedraw
For j As Integer = 0 To drs.count - 1
    Dim dr1 As DataRow = drs(j)
    Dim dr2 As DataRow = DataTables("股piao明细").AddNew()
    For i As Integer = 0 To Cols1.Length -1
        If  DataTables("股piao明细").DataCols(cols2(i)).IsNumeric Then
            Dim d As Double
            If Double.TryParse(dr1(Cols1(i)),d) Then
                dr2(Cols2(i)) = d
            End If
        Else
            dr2(Cols2(i)) = dr1(Cols1(i))
        end if
    Next
    p.Value = j
    Application.Doevents
Next
DataTables("股piao数据明细_Table6").ResumeRedraw
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  42楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2015/11/13 14:56:00 [只看该作者]

谢谢老师的耐心帮忙。

 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  43楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2015/11/13 16:59:00 [只看该作者]

以下是引用大红袍在2015/11/13 14:17:00的发言：

Dim Cols1() As String = {"日期","名称","代码","现价"}
Dim Cols2() As String = {"交易日期","股piao名称","股piao代码","当天_收盘价"}
Dim drs As List(Of DataRow) = DataTables("股piao数据明细_Table6").Select("")
Dim p As WinForm.ProgressBar
p = e.Form.Controls("ProgressBar3")
p.Maximum =  drs.Count - 1 '设置最大值
p.Minimum = 0 '设置最小值
p.Value = 0 '设置当前值
DataTables("股piao数据明细_Table6").StopRedraw
For j As Integer = 0 To drs.count - 1
    Dim dr1 As DataRow = drs(j)
    Dim dr2 As DataRow = DataTables("股piao明细").AddNew()
    For i As Integer = 0 To Cols1.Length -1
        If  DataTables("股piao明细").DataCols(cols2(i)).IsNumeric Then
            Dim d As Double
            If Double.TryParse(dr1(Cols1(i)),d) Then
                dr2(Cols2(i)) = d
            End If
        Else
            dr2(Cols2(i)) = dr1(Cols1(i))
        end if
    Next
    p.Value = j
    Application.Doevents
Next
DataTables("股piao数据明细_Table6").ResumeRedraw





老师，能通上面代码把数据追加到关联表的子表中吗？

[此贴子已经被作者于2015/11/13 17:07:21编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  44楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/11/13 17:10:00 [只看该作者]

Dim Cols1() As String = {"日期","名称","代码","现价"}
Dim Cols2() As String = {"交易日期","股piao名称","股piao代码","当天_收盘价"}
Dim drs As List(Of DataRow) = DataTables("股piao数据明细_Table6").Select("")
Dim p As WinForm.ProgressBar
p = e.Form.Controls("ProgressBar3")
p.Maximum =  drs.Count - 1 '设置最大值
p.Minimum = 0 '设置最小值
p.Value = 0 '设置当前值

For j As Integer = 0 To drs.count - 1
    Dim dr1 As DataRow = drs(j)
    Dim dr2 As Row = Tables("关联表").AddNew()
    For i As Integer = 0 To Cols1.Length -1
        If  Tables("关联表").cols(cols2(i)).IsNumeric Then
            Dim d As Double
            If Double.TryParse(dr1(Cols1(i)),d) Then
                dr2(Cols2(i)) = d
            End If
        Else
            dr2(Cols2(i)) = dr1(Cols1(i))
        End If
    Next
    p.Value = j
    Application.Doevents
Next
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  45楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2015/11/13 17:47:00 [只看该作者]

老师，我是要复制到（股piao.股piao交易）的关联表中。

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  46楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/11/13 17:54:00 [只看该作者]

认认真真看44楼。
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  47楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2015/11/13 18:10:00 [只看该作者]

老师，我搞错了。谢谢

 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  48楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2015/11/13 20:00:00 [只看该作者]

老师，问题有来了。

图片点击可在新窗口打开查看此主题相关图片如下：图像 3.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  49楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/11/13 20:14:00 [只看该作者]

 Dim filter As String = "股piao代码 = '" & r("代码").replace("SZ", "").replace("SH", "") & "' and 股piao名称 = '" & r("名称") & "'"

 

改成

 

 Dim filter As String = "股piao代码 = '" & r("代码") & "' and 股piao名称 = '" & r("名称") & "'"
 回到顶部
总数 49 上一页 1 2 3 4 5
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03613 秒, 4 次数据查询