以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=46672)

--  作者:toplyz
--  发布时间:2014/2/26 20:50:00
--  [求助]
一会儿弹出一个这个错误,我都快疯了,重新安装了.net也还是这样,这图片点击可在新窗口打开查看到底怎么回事呢,图片上传没呢 都上传了三次了
图片点击可在新窗口打开查看此主题相关图片如下:qq图片20140226204910.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2014-2-26 20:51:42编辑过]

--  作者:有点甜
--  发布时间:2014/2/26 20:56:00
--  
 看看是不是这个问题?


--  作者:toplyz
--  发布时间: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

 

一楼问题,将你的问题发上来看看。


--  作者:toplyz
--  发布时间:2014/2/26 21:20:00
--  回复:(toplyz)回复:(有点甜) 看看是不是这...
图片上传了的呢
--  作者: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

--  作者:toplyz
--  发布时间:2014/2/26 21:25:00
--  回复:(有点酸)复制数据: http://www.fox...
                          
图片点击可在新窗口打开查看此主题相关图片如下:qq图片20140226212453.jpg
图片点击可在新窗口打开查看

--  作者:toplyz
--  发布时间:2014/2/26 21:27:00
--  回复:(有点甜) 你再认真试试2楼的方法。 ...
2楼方法包括楼主提供的注册表都方法都试了 不行,我和他的问题不一样他是不能运行VB我是报的.net的错误
--  作者:toplyz
--  发布时间: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() \'填充数据

  这样会报错,求大神指教