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


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

主题：[求助]报表
帅哥哟，离线，有人找我吗？
jk36
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107680 积分：547721 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/2/4 16:50:00 [只看该作者]

ShowCheckBox = True只是开启了复选框，开启后有勾选了吗？

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


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

有勾选，但仍不显示

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


加好友 发短信
等级：超级版主 帖子：107680 积分：547721 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/2/4 17:09:00 [只看该作者]

肯定没有勾选？勾选了哪里，截图看看

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


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


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

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


加好友 发短信
等级：幼狐 帖子：168 积分：1108 威望：0 精华：0 注册：2022/10/17 15:24:00 		  发帖心情 Post By：2023/2/4 17:58:00 [只看该作者]

原因找到！
用Table控件模拟关联表

Dim t As Table = Tables("窗口1_Table1")
With Tables("产品")
    If .Current Is Nothing Then
        t.Filter = "False"
    Else
        t.Filter = "产品编号 = " & .Current("产品编号")
    End IF
End With


我加了个代码

Dim t As Table = Tables("窗口1_Table1")
With Tables("产品")
    If .Current Is Nothing Then
        t.Filter = "False"
    Else
        t.Filter = "产品编号 = " & .Current("产品编号")

        t.Filter = "入院日期 =  & ".Current("入院日期")
    End IF
End With

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

不知为何？

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


加好友 发短信
等级：超级版主 帖子：107680 积分：547721 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/2/5 20:20:00 [只看该作者]

参考：http://www.foxtable.com/webhelp/topics/1284.htm

表达式中的日期用符号#括起来，数值则不需要任何符号括起来，这些和代码中的格式是一样的，唯一不同的是字符串用单引号括起来。

例如：

Tables("订单").Filter = "[产品] = 'PD01'"  '字符用单引号括起来
Tables("订单").Filter = "[日期] = #3/17/1999#"  '日期用#括起来
Tables("订单").Filter = "[折扣] = 0.1"  '数值直接使用
 回到顶部
总数 17 上一页 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.04590 秒, 4 次数据查询