Foxtable(狐表) → 用户栏目 → 专家坐堂 → 数据合并


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

主题：数据合并
帅哥，在线噢！
有点蓝
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

for each c as col in Tables("课程表").Cols
    if Tables("课程表").compute("count(" & c.name & ")") = 0 then
c.visible = False 
end if
next
 回到顶部
帅哥，在线噢！
有点蓝
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

不是没有数据的列都隐藏吗？如果指定某几个列隐藏只能一个个写

 回到顶部
帅哥，在线噢！
有点蓝
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

列名有特殊符号，使用中括号括起来

For Each c As Col In Tables("课程表").Cols
    If Tables("课程表").compute("count([" & c.name & "])") = 0 Then
        c.visible = False
    End If
Next
 回到顶部
帅哥，在线噢！
有点蓝
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Dim cnt As Integer = Tables("表B").Rows.Count - 1
For i As Integer = cnt To 0 Step -1
    Tables("表B").Position = i
    Dim r As Row = Tables("表B").current
    Dim r2 As Row = Tables("表B").InsertNew
    r2("第一列") = r("第一列")
Next
 回到顶部
帅哥，在线噢！
有点蓝
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

给临时表添加一个列名为“_sortkey”的列即可

Dim b As New SQLGroupTableBuilder("课程表","灵川中心表一")
b.ConnectionName = "城厢区灵川中心小学数据库"
b.FIlter = DataTables("灵川中心表一").loadFIlter
If Tables("灵川中心表一").FIlter > "" Then
    b.FIlter = IIF(b.FIlter > "", b.FIlter & " and ","") & Tables("灵川中心表一").FIlter
End If
b.Groups.AddDef("学校")
b.Groups.AddDef("节序")
b.Totals.AddExp("_sortkey","0")
b.build()

Dim i As Integer = 1
For Each dr As DataRow In DataTables("课程表").Select("","学校,节序")
    dr("_sortkey") = i*10
i += 1
Next
Dim cnt As Integer = Tables("课程表").Rows.Count - 1
For i = cnt To 0 Step -1
    Tables("课程表").Position = i
    Dim r As Row = Tables("课程表").current
    Dim r2 As Row = Tables("课程表").InsertNew
    r2("学校") = r("学校")
    r2("节序") = r("节序")
Next
[此贴子已经被作者于2020/4/2 23:07:29编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

无所谓前后，先插入，再填充数据

 回到顶部
帅哥，在线噢！
有点蓝
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/3 14:35:00 [显示全部帖子]

隔一行在填充咯。逻辑问题其实就是思维的问题。就算这是一张纸，要手抄是不是也要隔一行再抄呀！

 回到顶部
帅哥，在线噢！
有点蓝
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

取数据的表格教师的设计不合理吧

 回到顶部
帅哥，在线噢！
有点蓝
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

很明显不合理。比如第三行老师a，周一教英语，周三教语文？！老师应该和学科一样设计

 回到顶部
帅哥，在线噢！
有点蓝
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

完整代码发上来看看

 回到顶部
总数 38 上一页 1 2 3 4 下一页
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 次数据查询