- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 筛选 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=84916)
-- 发布时间：2016/5/12 22:21:00
-- 筛选
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:chaxun.rar |
之前有发过这个程序，
现在程序本身没有问题
窗口2里的按钮2 本身也没有问题
但是执行起来效率非常低
我本来的意图是 在按钮2 筛选 rukudan数据行的子表没有内容行 因为不会写代码 所以写的 shuling>0
执行后 会有这样的问题
1 好多子表没有数据的行 还是没有数据， 有些有了（不知道是什么规律）
（正常是所有子表没有数据的行都应该 按照shuling添加相应的行数）
没有正常添加子表数据的行 是因为什么原因没有添加上，请各位指点一下
[此贴子已经被作者于2016/5/12 22:38:12编辑过]
-- 发布时间：2016/5/12 22:29:00
--
此主题相关图片如下：qq截图20160512222746.png
试试看！
-- 发布时间：2016/5/12 22:49:00
--
Systemready = False
DataTables("minxi").StopRedraw
For Each dr As DataRow In DataTables("rukudan").Select("shuliang > 0 and name not in (\'" & DataTables("minxi").GetComboListString("name").replace("\'", "\'\'").replace("|","\',\'") & "\')")
DataTables("minxi").deletefor("name = \'" & dr("name").replace("\'", "\'\'") & "\'")
For i As Integer = 1 To dr("shuliang")
Dim ndr As DataRow = DataTables("minxi").addnew
ndr("name") = dr("name")
ndr("danhao") = dr("rukudanhao")
ndr("id") = dr("_Identify")
Next
Next
DataTables("minxi").ResumeRedraw
Systemready = True