[求助]如何用代码实现写入excel报表数据？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何用代码实现写入excel报表数据？

共有12671人关注过本帖树形打印复制链接主题：[求助]如何用代码实现写入excel报表数据？

samica

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

加好友

发短信

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

Post By：2012/12/11 14:39:00 [只看该作者]

lin_hailun老师，这段代码在运行时出现：运行错误，语法错误:"And”运算符前缺少操作数.

samica

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

加好友

发短信

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

Post By：2012/12/11 14:43:00 [只看该作者]

以下是引用lin_hailun在2012-12-11 14:21:00的发言：
最后代码。

Dim rq_Stat As Date = e.Form.Controls("datetimepicker3").value ’开始日期
Dim rq_End As Date = e.Form.Controls("datetimepicker4").value '结束日期
Dim Cmb As String =e.Form.controls("combobox3").value '疾病名称

Sheet(3,15).Value = "<发病日期 >=# "& rq_Stat &" # And 发病日期 <= # "& rq_End &" # & And 疾病名称 = "& cmb &">"

找到错误原因，代码应为：

Sheet(3,15).Value = "<发病日期 >= # "& rq_Stat &" # And 发病日期 <= # "& rq_End &" # And 疾病名称 = '"& cmb &"'>"
感谢各位老师的无私帮助，这个报表基本已完成，还有不懂的地方，以后再上来问，再次对各位老师的指导，表示感谢！

[此贴子已经被作者于2012-12-11 14:44:02编辑过]