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

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

共有4228人关注过本帖树形打印复制链接主题：[求助]复制

江南小城

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

加好友

发短信

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

Post By：2015/11/12 18:36:00 [只看该作者]

老师，上传不了，我换了浏览器、系统重装都没有用。

图片点击可在新窗口打开查看此主题相关图片如下：360软件小助手截图20151112183415.png

此主题相关图片如下：360软件小助手截图20151112183730.png

[此贴子已经被作者于2015/11/12 18:37:46编辑过]

大红袍

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

加好友

发短信

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

Post By：2015/11/12 19:09:00 [只看该作者]

用ie浏览器，多尝试几次。

或者你重新做一个新的项目发上来啊。

江南小城

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

加好友

发短信

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

Post By：2015/11/13 10:00:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:筛选.table

大红袍

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

加好友

发短信

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

Post By：2015/11/13 10:01:00 [只看该作者]

数据库发上来。

江南小城

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

加好友

发短信

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

Post By：2015/11/13 10:08:00 [只看该作者]

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

江南小城

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

加好友

发短信

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

Post By：2015/11/13 10:15:00 [只看该作者]

老师，我花了九牛二虎之力在上传，现在浏览器改为IE7在发上来的而且项目也是新的（旧项目发不上来）我刚上传的文件名老师你改一下吧，谢谢。

大红袍

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

加好友

发短信

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

Post By：2015/11/13 10:17:00 [只看该作者]

Dim Cols1() As String = {"代码", "名称","涨幅","现价","涨跌","涨速","总手","换手","量比","所属行业","现手","开盘","昨收","最高","最低","买价","卖价","市盈(动)","市净率","买量","卖量","委比","振幅","金额","均笔额","笔数","手笔","外盘","内盘","总市值","流通值","日期","ID"}

For Each r As Row In Tables("当天收盘数据").rows
    Dim filter As String = "股piao代码 = '" & r("代码").replace("SZ", "").replace("SH", "") & "' and 股piao名称 = '" & r("名称") & "'"
        Dim dr As DataRow = DataTables("股piao").find(filter)
    If dr IsNot Nothing Then
        dr = e.form.controls("Table1").Table.DataTable.AddNew
        For i As Integer = 0 To Cols1.Length -1
            If r.IsNull(Cols1(i)) Then
                dr(Cols1(i)) = Nothing
            Else
                dr(Cols1(i)) = r(Cols1(i))
            End If
        Next

    End If
Next