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

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

共有5792人关注过本帖树形打印复制链接主题：关于垂直表和水平表的转换

lgj716330

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

加好友

发短信

等级：六尾狐帖子：1308 积分：10107 威望：0 精华：0 注册：2013/11/8 15:27:00

Post By：2016/3/8 13:46:00 [显示全部帖子]

表1本身就是一张统计表，没法再次统计，希望通过转换得到表2

lgj716330

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

加好友

发短信

等级：六尾狐帖子：1308 积分：10107 威望：0 精华：0 注册：2013/11/8 15:27:00

Post By：2016/3/8 14:41:00 [显示全部帖子]

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

lgj716330

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

加好友

发短信

等级：六尾狐帖子：1308 积分：10107 威望：0 精华：0 注册：2013/11/8 15:27:00

Post By：2016/3/8 14:59:00 [显示全部帖子]

好的

lgj716330

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

加好友

发短信

等级：六尾狐帖子：1308 积分：10107 威望：0 精华：0 注册：2013/11/8 15:27:00

Post By：2017/8/10 10:32:00 [显示全部帖子]

对于垂直表和水平表的转换，我不通过临时表，我加了一张固定表，MainTableChanged：

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

但发现切换过程中会重复填充，如果“日期”和“部门”结合起来是唯一的，上述代码如何修正

lgj716330

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

加好友

发短信

等级：六尾狐帖子：1308 积分：10107 威望：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编辑过]

lgj716330

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

加好友

发短信

等级：六尾狐帖子：1308 积分：10107 威望：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

lgj716330

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

加好友

发短信

等级：六尾狐帖子：1308 积分：10107 威望：0 精华：0 注册：2013/11/8 15:27:00

Post By：2017/8/10 17:23:00 [显示全部帖子]

弄了很久，实在改不来，帮助里也提到“强调一下，上述三项中提到的表必须都是同一个表。”，而我这个是两个表之间的

（不太方便做例子）

[此贴子已经被作者于2017/8/10 17:50:57编辑过]

lgj716330

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

加好友

发短信

等级：六尾狐帖子：1308 积分：10107 威望：0 精华：0 注册：2013/11/8 15:27:00

Post By：2017/8/10 20:58:00 [显示全部帖子]

弄了个简单的测试了下，发现数据量随着表A列数的增加而增加了数倍，不知原因在哪里

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目5.foxdb

[此贴子已经被作者于2017/8/10 21:13:14编辑过]

lgj716330

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

加好友

发短信

等级：六尾狐帖子：1308 积分：10107 威望：0 精华：0 注册：2013/11/8 15:27:00

Post By：2017/8/11 8:11:00 [显示全部帖子]

嗯，谢谢，慢慢消化下

lgj716330

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

加好友

发短信

等级：六尾狐帖子：1308 积分：10107 威望：0 精华：0 注册：2013/11/8 15:27:00

Post By：2017/8/14 10:38:00 [显示全部帖子]

If MainTable.name = "表B" Then
    Dim dic As new Dictionary(Of String, DataRow)
    Dim kms() As String = {"成1","成2","成3"}
    For Each dr1 As DataRow In DataTables("表A").DataRows
        For Each km As String In kms
            Dim filter As String = "日期 = #" & dr1("日期") & "# and 部门 = '" & km & "'"
            If DataTables("表B").Find(filter) Is Nothing Then
                dic.Add(km & "-" & dr1("_Identify"), dr1)
            End If
        Next
    Next

    DataTables("表B").StopRedraw
    For Each key As String In dic.keys
        Dim km = key.split("-")(0)

        Dim dr1 = dic(key)
        Dim dr2 As DataRow = DataTables("表B").AddNew()
        dr2("日期") = dr1("日期")
dr2("部门") = km
dr2("费用金额") = DataTables("表A").Compute("sum(dr1(km))","日期 = '" & dr1("日期") & "' and 部门 = '" & km & "' ")
    Next

    DataTables("表B").ResumeRedraw
End If

我改成具有汇总性质的，上述错误提示“未找到列[部门]“

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

总数 23 上一页 1 2 3 下一页

主题：关于垂直表和水平表的转换