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


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

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


加好友 发短信
等级：超级版主 帖子：105965 积分：538900 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/2 17:12:00 [只看该作者]

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

 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  82楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1879 积分：10352 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2020/9/2 17:37:00 [只看该作者]

这是未录入数据前的基本信息表数据，没空行的：

图片点击可在新窗口打开查看此主题相关图片如下：121.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：122.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：123.png
图片点击可在新窗口打开查看
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  83楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1879 积分：10352 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2020/9/2 17:47:00 [只看该作者]

这是保存后基本信息录入表把最后一行空行自动筛选

图片点击可在新窗口打开查看此主题相关图片如下：124.png
图片点击可在新窗口打开查看
删除基本信息表刚录入数据，不刷新基本信息录入表，在原有数据基础上重新加入空行保存，如此删除基本信息表录入数重新操作两次到三次，点目录树重新加载后就发现空行，且出现重复录入数据，明明已全部删除刚录入的数据，却出现重复！

图片点击可在新窗口打开查看此主题相关图片如下：321.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：32.png
图片点击可在新窗口打开查看
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  84楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1879 积分：10352 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2020/9/2 17:51:00 [只看该作者]

我删除基本信息表录入数后发现还存在，重复录入了！

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


加好友 发短信
等级：超级版主 帖子：105965 积分：538900 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/3 8:45:00 [只看该作者]

我测试没有问题，到目录窗口执行这个代码，查看所有行，就看出有空行了

systemready = False
Forms("主窗口").Close
MainTable = Tables("基本信息")
DataTables("基本信息").LoadFilter = ""
DataTables("基本信息").Loadtop = 100000
DataTables("基本信息").LoadOrder = Nothing
DataTables("基本信息").Load
Tables("基本信息").sort = "棋赛名称"
systemready = True

清空数据测试请使用，DataTables("基本信息").DataRows.Clear，不要手工删除，删除不干净的
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  86楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1879 积分：10352 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2020/9/3 9:15:00 [只看该作者]

但基本信息表是后台数据库，作为记录保存所有比赛资料，方便以后翻查，不可能全部清除，只能手工清除添加部份，以前的比赛结束后会锁定不让修改、删除。请教有什么方法解决这问题？

 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  87楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1879 积分：10352 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2020/9/3 9:42: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
    Dim nr As DataRow
    For Each dr As Row In t.rows
        nr = DataTables("基本信息").AddNew()
        For Each dc As Col In t.Cols
            nr(dc.Name) = dr(dc.Name)
        Next
    Next
DataTables("基本信息").DeleteFor("[姓名] is null")
DataTables("基本信息").save
DataTables("基本信息").Load
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  88楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1879 积分：10352 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2020/9/3 10:12:00 [只看该作者]

还有动态加载的目录树，在不点节点情况下无法关闭窗口，我想在目录树窗口外随意点一下鼠标就能自动关闭窗口，请教这段代码应写在哪？
If e.Form.Controls("基本信息录入") = True Then
    Select Case e.Form.Controls("基本信息录入").Table.Col.name
        Case "棋赛名称","编号","姓名","性别","单位","手机号码","身份","缺赛轮号","团体赛或个人赛","所属团体或个人分组","备注"
            e.Form.Controls("基本信息录入").Table.Row("操作人姓名") = User.Name & " " & Date.Now
    End Select
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  89楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

看不懂这种代码。也看不懂这个代码和关闭窗口有嘛关系。无法关闭窗口应该是有什么代码影响了

 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  90楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1879 积分：10352 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2020/9/3 10:33:00 [只看该作者]

发错了！

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