Foxtable(狐表) → 用户栏目 → 专家坐堂 → 多选填报,随机生成数据,模板打印


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

主题：多选填报,随机生成数据,模板打印
帅哥哟，离线，有人找我吗？
夜点蚊香
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：634 积分：4875 威望：0 精华：0 注册：2020/4/15 19:53:00 		多选填报,随机生成数据,模板打印  发帖心情 Post By：2022/1/24 11:12:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:单词背诵.xlsx


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


窗口中有一个界面

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

选择(单词数量)后  选择(单词库按钮)想弹出一个界面,根据(单词表) [年级,学期,单元]生成多选框,多选完成后填入 (听写表选择).

点击生成按钮,根据 (听写表选择)和"单词数量"里的单词库选择项  "随机生成"到(听写表明细)

点击打印按钮,是否可以按照 Excel打印模板的方式进行打印.

请指教
 回到顶部
帅哥哟，离线，有人找我吗？
夜点蚊香
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：634 积分：4875 威望：0 精华：0 注册：2020/4/15 19:53:00 		  发帖心情 Post By：2022/1/24 12:09:00 [显示全部帖子]

收到

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


加好友 发短信
等级：三尾狐 帖子：634 积分：4875 威望：0 精华：0 注册：2020/4/15 19:53:00 		求助.  发帖心情 Post By：2022/1/24 22:43:00 [显示全部帖子]

两个问题
1.随机选取前的条件已经完成,实例是没有给根据条件然后进行筛选的实例.
   现在用的是 在(单词表明细) 里加了一个  [选择] 字段
  随机生成数据的时候,先判断 [选择] 字段是否 等于"是" 把所有 "是" 的数据进行随机筛选.
2.打印模板打印的时候,选择窗口中的table数据才能生成模板,不选择的数据不能生成.如何实现表格里的数据全部生成.

请指教
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:背单词.rar

[此贴子已经被作者于2022/1/24 22:55:45编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
夜点蚊香
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：634 积分：4875 威望：0 精华：0 注册：2020/4/15 19:53:00 		问题重新整理了.求助  发帖心情 Post By：2022/1/25 9:56:00 [显示全部帖子]

问题1.点击生成时,先根据 (单词表明细)  单词库  字段 等于 "是"进行筛选  然后再随机生成.现在直接随机生成没有问题,随机生成之前筛选不会用.
问题2.点击打印的时候,生成的Excel表格,在选择table数据行后,可以正常打印,不选择数据行,不能打印数据.能够不选择数据行,直接全部生成Excel.
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:背单词.rar

问题3.单词表选择的时候有个bug,选择 1-4次,会有一次,传递的数据是空数据.
[此贴子已经被作者于2022/1/25 10:21:23编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
夜点蚊香
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：634 积分：4875 威望：0 精华：0 注册：2020/4/15 19:53:00 		  发帖心情 Post By：2022/1/25 10:47:00 [显示全部帖子]

随机生成和模板都搞定了,多协

有个bug  单词库选择的时候,,选择1-5次,会有一次传递的是空值.

单词库用的是  单词库页面的确认按钮进行提交

代码如下.
For Each r As Row In Tables("单词表明细").Rows
    r("单词库") = "否"
Next
DataTables("听写表选择").DeleteFor(Tables("听写表.听写表选择").Filter)
DataTables("听写表选择").Save
For Each dr1 As Row In Tables("单词表").GetCheckedRows
    Dim dr2 As Row = Tables("听写表.听写表选择").AddNew()
    dr2("年级") = dr1("年级")
    dr2("学期") = dr1("学期")
    dr2("单元") = dr1("单元")
Next
Forms("单词库").Close()
 回到顶部
帅哥哟，离线，有人找我吗？
夜点蚊香
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：634 积分：4875 威望：0 精华：0 注册：2020/4/15 19:53:00 		  发帖心情 Post By：2022/1/25 11:35:00 [显示全部帖子]

还是之前的实例,您操作一下就出来了,可以复现.

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