筛选 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

共有1729人关注过本帖树形打印复制链接主题：筛选

jinzhengbe

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1062 积分：9781 威望：0 精华：0 注册：2012/3/13 5:23:00

筛选

Post By：2016/5/12 22:21:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:chaxun.rar

之前有发过这个程序，

现在程序本身没有问题

窗口2里的按钮2 本身也没有问题

但是执行起来效率非常低

我本来的意图是在按钮2 筛选 rukudan数据行的子表没有内容行因为不会写代码所以写的 shuling>0

执行后会有这样的问题

1 好多子表没有数据的行还是没有数据，有些有了（不知道是什么规律）

（正常是所有子表没有数据的行都应该按照shuling添加相应的行数）

没有正常添加子表数据的行是因为什么原因没有添加上，请各位指点一下

[此贴子已经被作者于2016/5/12 22:38:12编辑过]

wyz20130512

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1242 积分：9386 威望：0 精华：0 注册：2013/5/12 9:22:00

Post By：2016/5/12 22:29:00 [只看该作者]

此主题相关图片如下：qq截图20160512222746.png

试试看！

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：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

下一主题 >> << 上一主题

主题：筛选