- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 水平转换垂直 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=185074)
-- 发布时间：2023/2/2 17:58:00
-- 水平转换垂直
水平转换垂直，如图：排除空
[此贴子已经被作者于2023/2/2 20:30:18编辑过]
-- 发布时间：2023/2/2 18:07:00
--
老师：代码怎么写，我弄了好久还是不行，请老师帮忙，另外排除空值和A表继续增加的可能性。
实例：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:水平转垂直.foxdb |
[此贴子已经被作者于2023/2/2 20:34:08编辑过]
-- 发布时间：2023/2/2 20:10:00
--
请上传实例说明
-- 发布时间：2023/2/2 20:35:00
--
实例传完了
-- 发布时间：2023/2/2 20:51:00
--
Sel ect ID,姓名1 as 姓名,电话1 As 电话 From {客户表} where 电话1 is not null Union All Sele ct ID,姓名2 as 姓名,电话2 As 电话 From {客户表} where 电话2 is not null Union All Sele ct ID,姓名3 as 姓名,电话3 As 电话 From {客户表} where 电话3 is not null Union All Sel ect ID,姓名4 as 姓名,电话4 As 电话 From {客户表} where 电话4 is not null Union All Sel ect ID,姓名5 as 姓名,电话5 As 电话 From {客户表} where 电话5 is not null
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:水平转垂直.foxdb |
[此贴子已经被作者于2023/2/2 20:57:23编辑过]
-- 发布时间：2023/2/2 21:04:00
--
Dim q As New Que ryBuilder
q.TableName = "客户表1"
q.Sel ectString = "Se lect ID,姓名1 as 姓名,电话1 As 电话 From {客户表} where 电话1 is not null Union All Sel ect ID,姓名2 as 姓名,电话2 As 电话 From {客户表} where 电话2 is not null Union All S ele ct ID,姓名3 as 姓名,电话3 As 电话 From {客户表} where 电话3 is not null Union All S elect ID,姓名4 as 姓名,电话4 As 电话 From {客户表} where 电话4 is not null Union All Se lect ID,姓名5 as 姓名,电话5 As 电话 From {客户表} where 电话5 is not null"
q.Build
MainTable = Tables("客户表1")
-- 发布时间：2023/2/2 21:04:00
--
参考：http://www.foxtable.com/webhelp/topics/1533.htm
-- 发布时间：2023/2/2 21:15:00
--
太尴尬了没找到代码，两位老师！！！！！代码写在哪里了？
-- 发布时间：2023/2/2 21:27:00
--
麻烦老师写下，我试了几次都没成功！
-- 发布时间：2023/2/2 21:32:00
--
蓝老师，我上传了实例了，你发的链接手工那个看了还是没太会，我在实例里没找到你写的代码，你能回复下么？