- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 垂直表和水平表的转换 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=189860)
-- 发布时间：2024/1/1 11:57:00
-- 垂直表和水平表的转换
老师:您好!
我搞个垂直表和水平表的转换,填充不了数据:
Data Tabl es("表2").Dele teFor("")
For Ea ch v As St ring In Da taTab les("表1").Get Values("颜色")
Dim dr1 As Da ta Row = Dat aTabl es("表2").Add New()
dr1("颜色") = v
Next
For Each dr1 As Row In Tables("表1").Rows
For Eac h dr2 As Ro w In Tabl es("表2").Ro ws
If cx.Cap tion = dr1("尺码") And dr2("颜色") = dr2("颜色") Th en
dr2("颜色" ) = dr1("件数")
En d if
Next
Ne xt
Ma inTa ble = Tables("表2")
请教下老师指教!!!
谢谢!!!
此主题相关图片如下：无标题.png
[此贴子已经被作者于2024/1/1 11:57:27编辑过]
-- 发布时间：2024/1/1 12:04:00
--
老师: 您好!
我的表1是统计表临时表
我的表2是数据表
请老师指教,把表1的数据填充在表2
谢谢老师指教!谢谢!!!
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:工作簿1.xlsx |
-- 发布时间：2024/1/1 20:31:00
--
Data Tabl es("表2").Dele teFor("")
For Ea ch v As St ring In Da taTab les("表1").Get Values("颜色")
Dim dr1 As Da ta Row = Dat aTabl es("表2").Add New()
dr1("颜色") = v
ForEach dr As datarow In DataTables("表1").select("颜色=\'" & v & "\'")
dr1(dr("尺码")) = dr("件数")
next
Next
-- 发布时间：2024/1/1 20:44:00
--
老师:新年快乐!
谢谢老师!!!