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


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

主题：多选填报,随机生成数据,模板打印
帅哥哟，离线，有人找我吗？
夜点蚊香
 小大  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


加好友 发短信
等级：超级版主 帖子：109728 积分：558356 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/1/24 11:37:00 [只看该作者]

添加一个模式窗口，比如名称为“选择单词”，窗口里添加一个表，绑定《单词表明细》，开启复选框：http://www.foxtable.com/webhelp/topics/1922.htm

(单词库按钮)弹出这个“选择单词”窗口，“选择单词”窗口afterload事件根据听写表窗口[年级,学期,单元]进行筛选。

“选择单词”窗口添加一个确定按钮，把窗口表格里勾选的数据填充到《听写表选择》：http://www.foxtable.com/webhelp/topics/1533.htm
 回到顶部
帅哥哟，离线，有人找我吗？
夜点蚊香
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

收到

 回到顶部
帅哥哟，离线，有人找我吗？
夜点蚊香
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109728 积分：558356 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/1/24 22:59:00 [只看该作者]

1、没看懂，指什么地方的代码？
2、模板是“单词背诵.xlsx”，不是“单词背诵.xls”
 回到顶部
帅哥哟，离线，有人找我吗？
夜点蚊香
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109728 积分：558356 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
夜点蚊香
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | 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()
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109728 积分：558356 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/1/25 11:15:00 [只看该作者]

指什么地方传递空值？代码看不出来

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


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

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

 回到顶部
总数 11 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.05664 秒, 7 次数据查询