【赵刚版主已解】SQL查询与汇总_交叉表的值不是值是文本

yangkd · 发表于 2011-6-23 14:53

附件的交叉表，类似菜谱，依照彭大师常用工具6.5也不能解决，
需要如图向导式_类似ACCESS交叉表通用的列行值选择对话框
的形式，可以数值计算或文本字符串式选择。谢谢参与。
已多次提出求教还没有解决。类似Microsoft Query向导操作。
交叉表非数值是多文本_向导式20110614b_副本2.jpg

交叉表非数值是多文本_向导式20110614.rar (5.65 KB, 下载次数: 66)

[ 本帖最后由 yangkd 于 2011-7-18 19:15 编辑 ]

yangkd · 发表于 2011-6-23 14:57

表单格式如图

yangkd · 发表于 2011-6-26 18:14

我的问题难啊无人能解啊

zhaogang1960 · 发表于 2011-7-13 16:34

Sub Macro1()
Dim arr, brr(), d As Object, ds As Object, i&, s$, t$
Set d = CreateObject("scripting.dictionary")
Set ds = CreateObject("scripting.dictionary")
arr = [a1].CurrentRegion
ReDim brr(1 To UBound(arr), 255)
ReDim crr(UBound(arr))
For i = 2 To UBound(arr)
      s = arr(i, 1)
      If Not ds.Exists(s) Then
         n = n + 1
         ds(s) = n
      End If
      t = arr(i, 2)
      If Not d.Exists(t) Then
         m = m + 1
         d(t) = m
         brr(m, 0) = arr(i, 2)
      End If
      If Len(brr(d(t), ds(s))) Then brr(d(t), ds(s)) = brr(d(t), ds(s)) & "," & arr(i, 3) Else brr(d(t), ds(s)) = arr(i, 3)
Next
[a17].CurrentRegion.ClearContents
[a17] = "部品"
[b17].Resize(, n) = ds.keys
[a18].Resize(m, n + 1) = brr
End Sub

zhaogang1960 · 发表于 2011-7-13 16:38

我对“ACCESS交叉表”没有概念，用的是字典+数组方法
请看附件：

交叉表非数值是多文本_向导式20110614.rar (12.14 KB, 下载次数: 139)

jygzcj · 发表于 2011-7-13 22:18

数组与字典的专家啊

thtfzhaobo · 发表于 2011-7-14 09:35

彭版的工具应该可解，你用的功能不对

yangkd · 发表于 2011-7-14 11:05

请指教用gif动画演示看看吧谢谢

yangkd · 发表于 2011-7-14 13:08

附件已经仔细阅读，不过当项目添加的时候，生成的交叉表就会覆盖数据。
故请求更改：
1.项目不能限制在提供的数量上，可以扩展到无限多行；
2.新表生成交叉表，不在原来的基础数据表里生成交叉表；
3.两种方式：重复项保留，重复项删除运行，按钮设置两个或提示勾选；
4.后续考虑的了，能一次搞定更好！也就是：
行列交差值可以自由的选择，向导方式运行！
谢谢，请在百忙中研究费心解决为盼！

[ 本帖最后由 yangkd 于 2011-7-14 13:10 编辑 ]

zhaogang1960 · 发表于 2011-7-14 17:38

原帖由 yangkd 于 2011-7-14 13:08 发表
附件已经仔细阅读，不过当项目添加的时候，生成的交叉表就会覆盖数据。
故请求更改：
1.项目不能限制在提供的数量上，可以扩展到无限多行；
2.新表生成交叉表，不在原来的基础数据表里生成交叉表；
3.两种方式： ...

我对这个东西概念不太清楚，请把你的打算用窗体设计出来，分析一下

		自动登录	找回密码
密码			免费注册

[讨论] 【赵刚版主已解】SQL查询与汇总_交叉表的值不是值是文本

回复 1楼 yangkd 的帖子

回复 1楼 yangkd 的帖子

回复 5楼 zhaogang1960 的帖子

回复 7楼 thtfzhaobo 的帖子

回复 5楼 zhaogang1960 的帖子