Foxtable(狐表)用户栏目专家坐堂 → [求助]这条代码为什么是错的?


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

主题:[求助]这条代码为什么是错的?

帅哥哟,离线,有人找我吗?
samica
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:148 积分:1036 威望:0 精华:0 注册:2012/11/26 13:05:00
[求助]这条代码为什么是错的?  发帖心情 Post By:2012/12/25 16:06:00 [只看该作者]

Dim swrq As Date = e.Form.Controls("datetimepicker2").value
sheet(13,6).value =swrq.Year
'这条代码为什么是错的,

请高手指导。


 回到顶部
帅哥哟,离线,有人找我吗?
lin_hailun
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2012/12/25 16:15:00 [只看该作者]

 报什么错?

 回到顶部
帅哥哟,离线,有人找我吗?
samica
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:148 积分:1036 威望:0 精华:0 注册:2012/11/26 13:05:00
  发帖心情 Post By:2012/12/26 7:42:00 [只看该作者]

林老师,我用的是vba代码
Dim dt As DataTable = DataTables("数据表")
Dim app As New MSExcel.Application
Dim book As MSExcel.Workbook = app.Workbooks.Open(ProjectPath & "Reports\book1.xls")
Dim sheet As MSExcel.Worksheet = book.Sheets("sheet1")
……
Dim swrq As Date = e.Form.Controls("datetimepicker2").value 
sheet(13,6).value =swrq.Year
 '到这里就报错。
不知道是什么原因?请老师指导,谢谢!
图片点击可在新窗口打开查看此主题相关图片如下:snap1.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
sgs
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:365 积分:2693 威望:0 精华:1 注册:2011/11/25 7:55:00
  发帖心情 Post By:2012/12/26 7:57:00 [只看该作者]

sheet.cells(13,6).value =swrq.Year '测试通过

 回到顶部
帅哥哟,离线,有人找我吗?
samica
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:148 积分:1036 威望:0 精华:0 注册:2012/11/26 13:05:00
  发帖心情 Post By:2012/12/26 8:19:00 [只看该作者]

哦,我忘了,前面的代码都是这样写的,到了这句就忘了,不好意思,再次表示感谢。

 回到顶部