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


  共有3783人关注过本帖树形打印复制链接

主题：[求助]
帅哥哟，离线，有人找我吗？
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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/2/26 20:56:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
toplyz
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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("历史下单数据") 表呢？
 回到顶部
帅哥哟，离线，有人找我吗？
有点酸
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1093 积分：6682 威望：0 精华：0 注册：2013/7/1 9:05:00 		  发帖心情 Post By：2014/2/26 21:17:00 [只看该作者]

复制数据：

 

http://www.foxtable.com/help/topics/0680.htm

http://www.foxtable.com/help/topics/1533.htm

 

一楼问题，将你的问题发上来看看。
 回到顶部
帅哥哟，离线，有人找我吗？
toplyz
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：90 积分：730 威望：0 精华：0 注册：2014/2/17 16:27:00 		回复：（toplyz）回复：（有点甜） 看看是不是这...  发帖心情 Post By：2014/2/26 21:20:00 [只看该作者]

图片上传了的呢

 回到顶部
帅哥哟，离线，有人找我吗？
toplyz
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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)

我这样填充出错呢？应该怎么样赋值呢
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/2/26 21:23:00 [只看该作者]

 你再认真试试2楼的方法。

 3楼的问题，你可以用filler的方法 http://www.foxtable.com/help/topics/0680.htm
 回到顶部
帅哥哟，离线，有人找我吗？
toplyz
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：90 积分：730 威望：0 精华：0 注册：2014/2/17 16:27:00 		回复：（有点甜） 你再认真试试2楼的方法。 ...  发帖心情 Post By：2014/2/26 21:27:00 [只看该作者]

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

 回到顶部
帅哥哟，离线，有人找我吗？
toplyz
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | 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() '填充数据

  这样会报错，求大神指教
 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询