[求助]这条代码为什么是错的？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有8859人关注过本帖树形打印复制链接主题：[求助]这条代码为什么是错的？

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 '这条代码为什么是错的,

请高手指导。

samica

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

samica

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：148 积分：1036 威望：0 精华：0 注册：2012/11/26 13:05:00

Post By：2012/12/26 8:19:00 [显示全部帖子]

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

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