Foxtable(狐表) → 用户栏目 → 专家坐堂 → 在分页集合版面动态添加的表如何继承基本表的表结构


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

主题：在分页集合版面动态添加的表如何继承基本表的表结构
帅哥哟，离线，有人找我吗？
有点蓝
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

说明这些行每行都至少有一个列是空的，不符合条件。再说这个只是做筛选，数据还在的

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


加好友 发短信
等级：超级版主 帖子：106097 积分：539590 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/2 8:33:00 [显示全部帖子]

到现在如果连筛选的原理还搞不懂，不仅仅白干，也白学了。

如果只是判断某几列是否为空，而不是所有列，参考
Dim dt As DataTable = Forms("主窗口").Controls("基本信息录入").Table.DataTable
    For Each dr As DataRow In dt.Select("[姓名] Is Not null and 列1 is not null and 列2 .........")
        For Each c2 As Col In Forms("主窗口").Controls("基本信息").Cols
            For Each c1 As DataCol In dt.DataCols
                Dim nr As DataRow = DataTables("基本信息").AddNew()
　　　　  nr(c2.Name) = dr(c2.Name)
            Next
        Next
    Next
DataTables("基本信息").Load ‘load前会自动保存
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106097 积分：539590 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/2 11:37:00 [显示全部帖子]

根本没有编程的思维和概念。

表A有10个列，比如需要判断第一行是否为空。那么是指第一行所有单元格（所有列）都没有数据才算是空行？还是只要第一行关键的列数据比如编号、姓名等列没有数据就认为这一行是空的，没有处理的必要？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106097 积分：539590 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/2 11:43:00 [显示全部帖子]

怎么样才算是空行？?

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


加好友 发短信
等级：超级版主 帖子：106097 积分：539590 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/2 13:37:00 [显示全部帖子]

请上传实例说明

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


加好友 发短信
等级：超级版主 帖子：106097 积分：539590 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/2 15:08:00 [显示全部帖子]

Dim t As Table = Forms("主窗口").Controls("基本信息录入").Table
Dim Filter As String = "1=2"
For Each dc As Col In t.Cols
    If dc.Visible AndAlso dc.IsBoolean = False
        Filter = Filter & " or " & dc.Name & " Is not Null"
    End If
Next
t.Filter  = Filter

Dim nr As DataRow
For Each dr As Row In t.rows
    nr = DataTables("基本信息").AddNew()
    For Each c2 As Col In t.Cols
        nr(c2.Name) = dr(c2.Name)
    Next
Next
DataTables("基本信息").save
DataTables("基本信息").Load
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106097 积分：539590 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/2 16:54:00 [显示全部帖子]

应该是之前测试的时候生成的空行，先删除掉再测试。或者清空数据再测试

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


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

那说明您抄作业都没有抄对

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


加好友 发短信
等级：超级版主 帖子：106097 积分：539590 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/2 17:01:00 [显示全部帖子]

重新贴出代码

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


加好友 发短信
等级：超级版主 帖子：106097 积分：539590 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/2 17:12:00 [显示全部帖子]

测试没有问题。我把数据清空后测试没发现有空行。截图说明一下哪个是空行？

 回到顶部
总数 47 上一页 1 2 3 4 5 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询