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


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

主题：多选填报,随机生成数据,模板打印
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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


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

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

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


加好友 发短信
等级：超级版主 帖子：109728 积分：558356 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/1/26 10:48:00 [显示全部帖子]

关联删除的原因，调换一下代码顺序：

For Each r As Row In Tables("单词表明细").Rows
    r("单词库") = "否"
Next
Dim Rows As List(of Row) = Tables("单词表").GetCheckedRows() '先获取勾选的行
DataTables("听写表选择").DeleteFor("")
For Each dr1 As Row In Rows

    Dim dr2 As Row = Tables("听写表选择").AddNew()
    dr2("年级") = dr1("年级")
    dr2("学期") = dr1("学期")
    dr2("单元") = dr1("单元")
Next
DataTables("听写表选择").Save

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