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

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

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

toplyz

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

加好友

发短信

等级：婴狐帖子：90 积分：730 威望：0 精华：0 注册：2014/2/17 16:27:00

[求助]

Post By：2014/2/26 20:50:00 [显示全部帖子]

一会儿弹出一个这个错误，我都快疯了，重新安装了.net也还是这样，这图片点击可在新窗口打开查看

到底怎么回事呢，图片上传没呢都上传了三次了
图片点击可在新窗口打开查看

此主题相关图片如下：qq图片20140226204910.jpg

[此贴子已经被作者于2014-2-26 20:51:42编辑过]

toplyz

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

加好友

发短信

等级：婴狐帖子：90 积分：730 威望：0 精华：0 注册：2014/2/17 16:27:00

回复：（有点甜）看看是不是这个问题？http://w... 发帖心情

Post By：2014/2/26 21:05:00 [显示全部帖子]

不行还是要弹呢

Dim cmd6 As New SQLCommand

Dim dt6 As DataTable

cmd6.C

cmd6.CommandText ="Select * From {历史下单数据} Where datediff('d',日期,# " & s & " #)=0 "

dt6 = cmd6.ExecuteReader()

我怎么把这个运行结果复制到DataTables("历史下单数据") 表呢？

toplyz

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

加好友

发短信

等级：婴狐帖子：90 积分：730 威望：0 精华：0 注册：2014/2/17 16:27:00

回复：（toplyz）回复：（有点甜）看看是不是这... 发帖心情

Post By：2014/2/26 21:20:00 [显示全部帖子]

图片上传了的呢

toplyz

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

加好友

发短信

等级：婴狐帖子：90 积分：730 威望：0 精华：0 注册：2014/2/17 16:27:00

回复：（有点酸）复制数据： http://www.fox... 发帖心情

Post By：2014/2/26 21:23:00 [显示全部帖子]

Dim r As Row = Tables("下单日期").Current

Dim s As Date = CDate(r("日期"))

Dim cmd6 As New SQLCommand

Dim dt6 As DataTable

cmd6.C

cmd6.CommandText ="Select 日期,工厂,KLM款号,厂家款号,钻石规格,成品规格,数量,分数 From {历史下单数据} Where datediff('d',日期,# " & s & " #)=0 "

dt6 = cmd6.ExecuteReader()

DataTables("历史下单数据").Fill(dt6)

我这样填充出错呢？应该怎么样赋值呢

toplyz

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

加好友

发短信

等级：婴狐帖子：90 积分：730 威望：0 精华：0 注册：2014/2/17 16:27:00

回复：（有点酸）复制数据： http://www.fox... 发帖心情

Post By：2014/2/26 21:25:00 [显示全部帖子]

此主题相关图片如下：qq图片20140226212453.jpg

toplyz

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

加好友

发短信

等级：婴狐帖子：90 积分：730 威望：0 精华：0 注册：2014/2/17 16:27:00

回复：（有点甜）你再认真试试2楼的方法。 ... 发帖心情

Post By：2014/2/26 21:27:00 [显示全部帖子]

2楼方法包括楼主提供的注册表都方法都试了不行，我和他的问题不一样他是不能运行VB我是报的.net的错误

toplyz

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

加好友

发短信

等级：婴狐帖子：90 积分：730 威望：0 精华：0 注册：2014/2/17 16:27:00

回复：（有点酸）复制数据： http://www.fox... 发帖心情

Post By：2014/2/26 21:33:00 [显示全部帖子]

Dim s As Date = CDate("2014-02-26")

Dim cmd6 As New SQLCommand

Dim dt6 As DataTable

cmd6.C

cmd6.CommandText ="Select 日期,工厂,KLM款号,厂家款号,钻石规格,成品规格,数量,分数 From {历史下单数据} Where datediff('d',日期,# " & s & " #)=0 "

dt6 = cmd6.ExecuteReader()

Dim f As New Filler

f.SourceTable = dt6 '指定数据来源

f.SourceCols = "日期,工厂,KLM款号,厂家款号,钻石规格,成品规格,数量,分数 " '指定数据来源列

f.DataTable = DataTables("历史下单数据") '指定数据接收表

f.DataCols = "日期,工厂,KLM款号,厂家款号,钻石规格,成品规格,数量,分数 " '指定数据接收列

f.Fill() '填充数据

这样会报错，求大神指教

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

主题：[求助]