以文本方式查看主题 - 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() \'填充数据 这样会报错,求大神指教
|