Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于垂直表和水平表的转换


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

主题：关于垂直表和水平表的转换
帅哥哟，离线，有人找我吗？
lgj716330
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1303 积分：10071 威望：0 精华：0 注册：2013/11/8 15:27:00 		  发帖心情 Post By：2016/3/8 14:41:00 [只看该作者]

里面设计到很多计算，用表2不太好计算，我再想想看

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/3/8 14:43:00 [只看该作者]

以下是引用lgj716330在2016/3/8 14:41:00的发言：
里面设计到很多计算，用表2不太好计算，我再想想看

 

那就先生成表1，然后从表1交叉统计到表2.
 回到顶部
帅哥哟，离线，有人找我吗？
lgj716330
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1303 积分：10071 威望：0 精华：0 注册：2013/11/8 15:27:00 		  发帖心情 Post By：2016/3/8 14:59:00 [只看该作者]

好的

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


加好友 发短信
等级：六尾狐 帖子：1303 积分：10071 威望：0 精华：0 注册：2013/11/8 15:27:00 		  发帖心情 Post By：2017/8/10 10:32:00 [只看该作者]

对于垂直表和水平表的转换，我不通过临时表，我加了一张固定表，MainTableChanged：
 If 图片点击可在新窗口打开查看MainTable.Name  = "固定费用" Then
Dim kms() As String = {"成1","成2","成3","成4","成5"}
For Each dr1 As DataRow In DataTables("固定费用分配表").DataRows
    For Each km As String In kms
        Dim dr2 As DataRow = DataTables("固定费用").AddNew()
        dr2("日期") = dr1("日期")
        dr2("费用类型") = dr1("费用类型")
        dr2("费用性质") = dr1("费用性质")
        dr2("费用科目") = dr1("费用科目")
        dr2("部门") = km
        dr2("费用金额") = dr1(km)
    Next
Next
End If 

但发现切换过程中会重复填充，如果“日期”和“部门”结合起来是唯一的，上述代码如何修正
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/8/10 10:59:00 [只看该作者]

Dim kms() As String = {"成1","成2","成3","成4","成5"}
For Each dr1 As DataRow In DataTables("固定费用分配表").DataRows
    For Each km As String In kms
        Dim filter As String = "日期 = #" & dr1("日期") & "# and 部门 = '" & km & "'"
        Dim dr2 As DataRow = DataTables("固定费用").find(filter)
        If dr2 Is Nothing Then dr2 = DataTables("固定费用").AddNew()
        dr2("日期") = dr1("日期")
        dr2("费用类型") = dr1("费用类型")
        dr2("费用性质") = dr1("费用性质")
        dr2("费用科目") = dr1("费用科目")
        dr2("部门") = km
        dr2("费用金额") = dr1(km)
    Next
Next

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


加好友 发短信
等级：六尾狐 帖子：1303 积分：10071 威望：0 精华：0 注册：2013/11/8 15:27:00 		  发帖心情 Post By：2017/8/10 12:44:00 [只看该作者]

在MainTableChanged里处理，即使 If 图片点击可在新窗口打开查看MainTable.Name  = "固定费用" ，切换的时候速度仍然很慢，特别是数据量大的时候，要好久才切换过来，有什么其他好的解决办法吗
[此贴子已经被作者于2017/8/10 13:08:40编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/8/10 13:09:00 [只看该作者]

1、看你datacolchanged事件是否有耗时代码；

 

2、看看 http://www.foxtable.com/webhelp/scr/2225.htm

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


加好友 发短信
等级：六尾狐 帖子：1303 积分：10071 威望：0 精华：0 注册：2013/11/8 15:27:00 		  发帖心情 Post By：2017/8/10 13:31:00 [只看该作者]

以下是datacolchanged事件的代码

If e.DataCol.Name = "合计" AndAlso e.NewValue = 0 Then
 e.DataRow.Delete
End If

If e.DataCol.Name = "日期" Then
    If e.DataRow.IsNull("日期") Then
        e.DataRow("编号") = Nothing
    Else
        Dim bh As String = Format(e.DataRow("日期"),"yyyyMMdd") '取得编号的8位前缀
        If e.DataRow("编号").StartsWith(bh) = False '如果编号的前8位不符
            Dim max As String
            Dim idx As Integer
            max = e.DataTable.Compute("Max(编号)","日期 = #" & e.DataRow("日期") & "# And [_Identify] <> " & e.DataRow("_Identify")) '取得该天的最大编号
            If max > "" Then '如果存在最大编号
                idx = CInt(max.Substring(10,3)) + 1 '获得最大编号的后三位顺序号,并加1
            Else
                idx = 1 '否则顺序号等于1
            End If
            e.DataRow("编号") = bh & "GD" & Format(idx,"000")
        End If
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/8/10 14:40:00 [只看该作者]

你这个表数据太多？【固定费用分配表】

 

多慢？做个例子发上来测试。

 

不然就改一下 http://www.foxtable.com/webhelp/scr/2225.htm

 

 

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


加好友 发短信
等级：六尾狐 帖子：1303 积分：10071 威望：0 精华：0 注册：2013/11/8 15:27:00 		  发帖心情 Post By：2017/8/10 17:23:00 [只看该作者]

弄了很久，实在改不来，帮助里也提到“强调一下，上述三项中提到的表必须都是同一个表。”，而我这个是两个表之间的
（不太方便做例子）
[此贴子已经被作者于2017/8/10 17:50:57编辑过]
 回到顶部
总数 42 上一页 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.06250 秒, 4 次数据查询