- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助] (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=46672)
-- 发布时间：2014/2/26 20:50:00
-- [求助]
一会儿弹出一个这个错误，我都快疯了，重新安装了.net也还是这样，这
此主题相关图片如下：qq图片20140226204910.jpg
[此贴子已经被作者于2014-2-26 20:51:42编辑过]
-- 发布时间：2014/2/26 20:56:00
--
看看是不是这个问题？
-- 发布时间：2014/2/26 21:05:00
-- 回复：（有点甜） 看看是不是这个问题？http://w...
不行 还是要弹呢
Dim cmd6 As New SQLCommand
Dim dt6 As DataTable
cmd6.C
cmd6.CommandText ="Select * From {历史下单数据} Where datediff(\'d\',日期,# " & s & " #)=0 "
dt6 = cmd6.ExecuteReader()
我怎么把这个运行结果复制到DataTables("历史下单数据") 表呢？
-- 发布时间：2014/2/26 21:17:00
--
复制数据：
http://www.foxtable.com/help/topics/0680.htm
http://www.foxtable.com/help/topics/1533.htm
一楼问题，将你的问题发上来看看。
-- 发布时间：2014/2/26 21:20:00
-- 回复：（toplyz）回复：（有点甜） 看看是不是这...
图片上传了的呢
-- 发布时间：2014/2/26 21:23:00
-- 回复：（有点酸）复制数据： http://www.fox...
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)
我这样填充出错呢？应该怎么样赋值呢
-- 发布时间：2014/2/26 21:23:00
--
你再认真试试2楼的方法。
3楼的问题，你可以用filler的方法 http://www.foxtable.com/help/topics/0680.htm
-- 发布时间：2014/2/26 21:25:00
-- 回复：（有点酸）复制数据： http://www.fox...
此主题相关图片如下：qq图片20140226212453.jpg
-- 发布时间：2014/2/26 21:27:00
-- 回复：（有点甜） 你再认真试试2楼的方法。 ...
2楼方法包括楼主提供的注册表都方法都试了 不行，我和他的问题不一样他是不能运行VB我是报的.net的错误
-- 发布时间：2014/2/26 21:33:00
-- 回复：（有点酸）复制数据： http://www.fox...
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() \'填充数据
这样会报错，求大神指教