- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]报表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185101)
-- 发布时间：2023/2/3 17:37:00
-- [求助]报表
建一个窗口，加一个按钮，在按钮输入
Dim rs As List(of
Row) = Tables("表A").GetCheckedRows
If rs.Count > 0 Then \'如果存在符合条件的行
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 rs
\'逐行生成报表
wrt.BuildOne(r)
Next
wrt.Show() \'显示报表
End If
此主题相关图片如下：1.png
没有报表生成，不知这个要放哪里？
[此贴子已经被作者于2023/2/3 17:40:38编辑过]
-- 发布时间：2023/2/3 17:39:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:报表.zip |
[此贴子已经被作者于2023/2/3 17:39:28编辑过]
-- 发布时间：2023/2/4 8:57:00
--
表格没有开启复选框，http://www.foxtable.com/webhelp/topics/1776.htm，GetCheckedRows的用法先了解一下
-- 发布时间：2023/2/4 12:43:00
--
不知哪问题？
[此贴子已经被作者于2023/2/4 12:44:10编辑过]
-- 发布时间：2023/2/4 12:44:00
--
此主题相关图片如下：2.png
不知哪问题？
-- 发布时间：2023/2/4 12:46:00
--
此主题相关图片如下：3.png
-- 发布时间：2023/2/4 12:48:00
--
此主题相关图片如下：4.png
这是打开一个窗口时出现的提示
-- 发布时间：2023/2/4 13:22:00
--
应该是窗口表的sql或者表达式条件有问题
-- 发布时间：2023/2/4 13:55:00
--
代码：
Dim dp1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker5")
dp1.DateTimeFormat = DateTimeFormatEnum.DateTime
Tables("日病情记录").Current("今天日期") = Date.Now()
将窗口中的表tabie1改为副表后出现的，以前都好好的
-- 发布时间：2023/2/4 14:34:00
--
调试看哪一句代码有问题：http://www.foxtable.com/webhelp/topics/1485.htm