以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 多选填报,随机生成数据,模板打印 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=174626) |
||||
-- 作者:夜点蚊香 -- 发布时间:2022/1/24 11:12:00 -- 多选填报,随机生成数据,模板打印
窗口中有一个界面 选择(单词数量)后 选择(单词库按钮)想弹出一个界面,根据(单词表) [年级,学期,单元]生成多选框,多选完成后填入 (听写表选择). 点击生成按钮,根据 (听写表选择)和"单词数量"里的单词库选择项 "随机生成"到(听写表明细) 点击打印按钮,是否可以按照 Excel打印模板的方式进行打印. 请指教
|
||||
-- 作者:有点蓝 -- 发布时间:2022/1/24 11:37:00 -- 添加一个模式窗口,比如名称为“选择单词”,窗口里添加一个表,绑定《单词表明细》,开启复选框:http://www.foxtable.com/webhelp/topics/1922.htm “选择单词”窗口添加一个确定按钮,把窗口表格里勾选的数据填充到《听写表选择》:http://www.foxtable.com/webhelp/topics/1533.htm |
||||
-- 作者:夜点蚊香 -- 发布时间:2022/1/24 12:09:00 -- 收到 |
||||
-- 作者:夜点蚊香 -- 发布时间:2022/1/24 22:43:00 -- 求助. 两个问题 1.随机选取前的条件已经完成,实例是没有给根据条件然后进行筛选的实例. 现在用的是 在(单词表明细) 里加了一个 [选择] 字段 随机生成数据的时候,先判断 [选择] 字段是否 等于"是" 把所有 "是" 的数据进行随机筛选. 2.打印模板打印的时候,选择窗口中的table数据才能生成模板,不选择的数据不能生成.如何实现表格里的数据全部生成. 请指教
[此贴子已经被作者于2022/1/24 22:55:45编辑过]
|
||||
-- 作者:有点蓝 -- 发布时间:2022/1/24 22:59:00 -- 1、没看懂,指什么地方的代码? 2、模板是“单词背诵.xlsx”,不是“单词背诵.xls”
|
||||
-- 作者:夜点蚊香 -- 发布时间:2022/1/25 9:56:00 -- 问题重新整理了.求助 问题1.点击生成时,先根据 (单词表明细) 单词库 字段 等于 "是"进行筛选 然后再随机生成.现在直接随机生成没有问题,随机生成之前筛选不会用. 问题2.点击打印的时候,生成的Excel表格,在选择table数据行后,可以正常打印,不选择数据行,不能打印数据.能够不选择数据行,直接全部生成Excel.
问题3.单词表选择的时候有个bug,选择 1-4次,会有一次,传递的数据是空数据. [此贴子已经被作者于2022/1/25 10:21:23编辑过]
|
||||
-- 作者:有点蓝 -- 发布时间:2022/1/25 10:23:00 -- 1、筛选后对table进行操作不要对datatable进行操作,比如 Tables("单词表明细").filter = “xx筛选条件” Tables("单词表明细").StopRedraw() DataTables("单词表明细").ReplaceFor("选择",False,Tables("单词表明细").filter) For i As Integer = 0 To 5 - 1 \'100为要抽取的行数 Tables("单词表明细").Rows(ids2(i))("选择") = True Next 其它用得到DataTables的地方根据情况改为使用Tables |
||||
-- 作者:夜点蚊香 -- 发布时间: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() |
||||
-- 作者:有点蓝 -- 发布时间:2022/1/25 11:15:00 -- 指什么地方传递空值?代码看不出来 |
||||
-- 作者:夜点蚊香 -- 发布时间:2022/1/25 11:35:00 -- 还是之前的实例,您操作一下就出来了,可以复现. |