Foxtable(狐表) → 用户栏目 → 专家坐堂 → 专业报表的单选框、复选框如何实现？


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

主题：专业报表的单选框、复选框如何实现？
帅哥哟，离线，有人找我吗？
lin98
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1360 积分：9034 威望：0 精华：0 注册：2020/11/4 22:15:00 		专业报表的单选框、复选框如何实现？  发帖心情 Post By：2023/8/11 12:13:00 [显示全部帖子]

专业报表的单选框、复选框如何实现？

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


加好友 发短信
等级：六尾狐 帖子：1360 积分：9034 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/8/11 15:37:00 [显示全部帖子]

特殊符号里有方框，和带勾的方框，是的，这些怎么实现？

问题二：狐表的关联表的EXECL模板打印，是须要有下面的关联，不做下面图关联，是做不了，

对业务需求，不做下面图关联，用专业报表，专业要求比较高，灵活度也没比EXECL模板打印好，有没有办法不做下面图关联，也能实现EXECL模板打印？
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1360 积分：9034 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/8/11 16:13:00 [显示全部帖子]


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

测试一下，效果不是很好，没有EXECL好

专业报表，复选框、单选框是主表的爱好列的内容，专业报表如何实现？
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1360 积分：9034 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/10/20 10:22:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：专业报表复选问题.jpg
图片点击可在新窗口打开查看

图上爱好固定，表中是动态数据，如何实现动态？
rt.Cells(7, 0).Text = "爱好：□书法, ■跑步 ,□唱歌, □种花"

rt.Cells(7, 1).Text = CurRow("爱好")

doc.Body.Children.Add(rt) '将表格对象加入到报表中
Doc.Preview() '预览报表
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1360 积分：9034 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/10/20 10:47:00 [显示全部帖子]

Dim s As String = "爱好："
Dim ah As String = CurRow("爱好")
If ah.contains("书法") Then
s = s & "口"
Else
s = s & "■"
End If
s = s & "书法"
If ah.contains("跑步") Then
s = s & "口"
Else
s = s & "■"
End If
s = s & "跑步"
If ah.contains("唱歌") Then
s = s & "口"
Else
s = s & "■"
End If
s = s & "唱歌"
If ah.contains("种花") Then
s = s & "口"
Else
s = s & "■"
End If
s = s & "种花"




[此贴子已经被作者于2023/10/20 11:15:13编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1360 积分：9034 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/10/20 10:54:00 [显示全部帖子]

Dim s As String = "爱好："
Dim ah As String = CurRow("爱好")
msgbox(ah) 显示什么内容
这个显示正确，
但专业报表显示是下行的数据
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1360 积分：9034 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/10/20 11:08:00 [显示全部帖子]





Dim s As String = "爱好："
Dim ah As String = CurRow("爱好")

msgbox(ah) '显示什么内容
If ah.contains("书法") Then
    s = s & "口"
Else
    s = s & "■"
End If
s = s & "书法"
If ah.contains("跑步") Then
    s = s & "口"
Else
    s = s & "■"
End If
s = s & "跑步"
If ah.contains("唱歌") Then
    s = s & "口"
Else
    s = s & "■"
End If
s = s & "唱歌"
If ah.contains("种花") Then
    s = s & "口"
Else
    s = s & "■"
End If
s = s & "种花"



这是全面代码，提示显示正确，但专业报表显示错乱？
[此贴子已经被作者于2023/10/20 11:15:43编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1360 积分：9034 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/10/20 11:31:00 [显示全部帖子]

"■"太小如何调大？

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询