| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]word模板问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73979) |
| -- 作者：zcgmxf -- 发布时间：2015/8/30 17:27:00 -- [求助]word模板问题 老师好！word模板怎么样才能生成竖排的。谢谢！ <"*" & [体检编号] & "*"> 体检导检单 日 期：[日期] 条型码号：[体检编号] 姓 名：[姓名] 性别：[性别] 年 龄：[年龄] 体检项目： [体检项目] *20150829001* 体检导检单 日 期：2015-08-29 条型码号：20150829001 姓 名： 性别： 年 龄： 体检项目：
抽血化验,心电图,胸部X线正位片,经颅超声多普勒,肝胆脾胰肾彩超,肝胆脾胰彩超,双肾彩超,,问诊 *20150829001* 体检导检单 日 期：2015-08-29 条型码号：20150829001 姓 名： 性别： 年 龄： 体检项目： 抽血化验, 心电图,胸部X线正位片, 经颅超声多普勒, 肝胆脾胰肾彩超, 肝胆脾胰彩超, 双肾彩超, 问诊
|
| -- 作者：大红袍 -- 发布时间：2015/8/30 17:29:00 -- 用表格，设置好单元格格式 |
| -- 作者：zcgmxf -- 发布时间：2015/8/30 17:46:00 -- 体检项目是复选列表框选项生成的，老师，能否具体点，本人愚钝，弄不好。谢谢！ [此贴子已经被作者于2015/8/30 17:48:04编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2015/8/30 20:04:00 -- 请参考下面链接里面的内容手工编写 Dim tm As String = ProjectPath & "Attachments\\模板.doc" \'指定模板文件 Dim fl As String = ProjectPath & "Reports\\模板.doc" \'指定目标文件 Dim wrt As New WordReport(Tables("体检导验单"),tm,fl) \'定义一个WordReport For Each r As Row In Tables("体检导验单").Rows \'逐行生成报表 Dim str() as String = r(“体检项目”).Split(",") Dim temp as String = "" for each s as string in str if temp > "" then temp = temp & vbcrlf & s else temp = s end if next wrt.ReplaceOne("[体检项目]",temp) wrt.BuildOne(r) Next wrt.Show() \'显示报表
|
| -- 作者：zcgmxf -- 发布时间：2015/8/30 20:49:00 -- 谢谢指点 |