主题：[求助]如何用代码实现写入excel报表数据？

 

lin_hailun老师，你给的例子好像只能打印出当前行病人的患病信息，我需要的是两种情况：1、当年患某病的全部病人的患病信息，2、当年某社区患所有病的病人的患病信息。

楼主的要求需要两个模版，并不复杂，暂时没时间弄例子，有空再弄，我们公司领导的要求比你这个还叼专呢

 

nblwar老师，能逐行解释一下上面的代码吗，应该怎么写标签，不懂啊。还有用标签的话，能否打印整列的数据？还是只能打印一条数据？

就是整列的啊，

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:传染病管理.rar

没有时间,只能做一点点给你参考

nblwar老师，你的例子很实用，已基本解决了困扰我多日的问题了，就是还有一个问题：如何才能正确设置查询条件：某年某病种的病人信息；某年某社区的病人信息？是否能够通过DateTimePicker和ComboBox的值来调用年份和社区进行查询统计？

可以，设置条件，可以类似这样设置，也就是修改对应单元格的值。具体看看 开发指南->excel报表

sheet(3,15).Value = "<信息ID = 'xxx'>"

麻烦老师帮助看下：错误怎么才能纠正？

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

Sheet(3,15).Value = "<发病日期 >=# "& rq_Stat &" # And 发病日期 <= # "& rq_End &" # & And 疾病名称 = "& cmb &">"
编译错误：没有为类型"String”和"WinForm.ComboBox"定义运算符"&"。

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

lin_hailun老师，代码编译通过，但在执行时出现错误：

请指导。

最后代码。
 

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 &">"