欢迎您:游客!请先
登录
或
注册
风格
恢复默认设置
|
展区
文件集浏览
图片集浏览
Flash浏览
音乐集浏览
电影集浏览
|
搜索
Foxtable(狐表)
→
用户栏目
→
专家坐堂
→ [求助]窗口当前筛选行中指定值水平表转垂直列
新的主题
投票帖
小字报
下一主题 >>
<< 上一主题
共有
2171
人关注过本帖
树形
打印
复制链接
主题:[求助]窗口当前筛选行中指定值水平表转垂直列
miaoqingqing
小
大
1楼
|
信息
|
搜索
|
邮箱
|
主页
|
UC
加好友
发短信
等级:三尾狐
帖子:
660
积分:5180
威望:0
精华:0
注册:
2019/7/26 12:54:00
[求助]窗口当前筛选行中指定值水平表转垂直列
Post By:2020/9/1 12:19:00 [
显示全部帖子
]
下载信息
[文件大小:
下载次数:
]
点击浏览该文件:指定条件的水平行转垂直表.table
水平表转垂直表,求助,成绩表 当前显示行中,姓名 等于 张三 李四 王五 的人的行,才转到垂直表的列
Dim dtb As New DataTableBuilder("表B")
dtb.AddDef("班级", Gettype(String), 255)
For Each v As String In DataTables("成绩表").GetValues("姓名")
dtb.AddDef(v, Gettype(String), 999)
Next
dtb.Build()
For Each dr As DataRow In DataTables("成绩表").Select("")
Dim dr1 As DataRow = DataTables("表B").AddNew()
dr1("班级") = dr("班级")
dr1(dr("姓名")) = dr("姓名")
Next
MainTable = Tables("表B")
[此贴子已经被作者于2020/9/1 12:24:19编辑过]
下一主题 >>
<< 上一主题
RSS2.0
|
Xhtml无图版
|
Xslt无图版
Copyright © 2000 - 2018
foxtable
.com
Tel: 4000-810-820 粤ICP备11091905号
Powered By
Dvbbs
Version 8.3.0
页面执行时间 0.03320 秒, 6 次数据查询