Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]报表


  共有3025人关注过本帖树形打印复制链接

主题：[求助]报表
帅哥哟，离线，有人找我吗？
jk36
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：168 积分：1108 威望：0 精华：0 注册：2022/10/17 15:24:00 		[求助]报表  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
jk36
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：168 积分：1108 威望：0 精华：0 注册：2022/10/17 15:24:00 		  发帖心情 Post By：2023/2/3 17:39:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:报表.zip


[此贴子已经被作者于2023/2/3 17:39:28编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
jk36
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：168 积分：1108 威望：0 精华：0 注册：2022/10/17 15:24:00 		  发帖心情 Post By：2023/2/4 12:43:00 [显示全部帖子]

不知哪问题？
[此贴子已经被作者于2023/2/4 12:44:10编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
jk36
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：168 积分：1108 威望：0 精华：0 注册：2022/10/17 15:24:00 		  发帖心情 Post By：2023/2/4 12:44:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：2.png
图片点击可在新窗口打开查看
不知哪问题？
 回到顶部
帅哥哟，离线，有人找我吗？
jk36
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：168 积分：1108 威望：0 精华：0 注册：2022/10/17 15:24:00 		  发帖心情 Post By：2023/2/4 12:46:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：3.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
jk36
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：168 积分：1108 威望：0 精华：0 注册：2022/10/17 15:24:00 		  发帖心情 Post By：2023/2/4 12:48:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：4.png
图片点击可在新窗口打开查看

这是打开一个窗口时出现的提示
 回到顶部
帅哥哟，离线，有人找我吗？
jk36
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：168 积分：1108 威望：0 精华：0 注册：2022/10/17 15:24:00 		  发帖心情 Post By：2023/2/4 13:55:00 [显示全部帖子]

代码：
Dim dp1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker5")
dp1.DateTimeFormat = DateTimeFormatEnum.DateTime
Tables("日病情记录").Current("今天日期") = Date.Now()

将窗口中的表tabie1改为副表后出现的，以前都好好的
 回到顶部
帅哥哟，离线，有人找我吗？
jk36
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：168 积分：1108 威望：0 精华：0 注册：2022/10/17 15:24:00 		  发帖心情 Post By：2023/2/4 16:37:00 [显示全部帖子]


表格没有开启复选框，http://www.foxtable.com/webhelp/topics/1776.htm，GetCheckedRows的用法先了解一下

在按钮上代码
Dim rs As List(Of Row) = Tables("日病情记录").GetCheckedRows
Tables("日病情记录").ShowCheckBox = True
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
这样可以开启复选框了吗？

[此贴子已经被作者于2023/2/4 16:37:25编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
jk36
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：168 积分：1108 威望：0 精华：0 注册：2022/10/17 15:24:00 		  发帖心情 Post By：2023/2/4 17:05:00 [显示全部帖子]

有勾选，但仍不显示

 回到顶部
帅哥哟，离线，有人找我吗？
jk36
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：168 积分：1108 威望：0 精华：0 注册：2022/10/17 15:24:00 		  发帖心情 Post By：2023/2/4 17:36:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：5.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：6.png
图片点击可在新窗口打开查看
 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 6 次数据查询