[求助]ABCD列生成EFGH列值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]ABCD列生成EFGH列值

共有5121人关注过本帖树形打印复制链接主题：[求助]ABCD列生成EFGH列值

miaoqingqing

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

等级：三尾狐帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00

[求助]ABCD列生成EFGH列值 发帖心情

Post By：2023/2/7 20:05:00 [显示全部帖子]

求助ABCD列生成EFGH列值

此主题相关图片如下：abcd列不重复值生成排列组合.png

miaoqingqing

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

等级：三尾狐帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00

回复：（有点蓝）生成规则？ 发帖心情

Post By：2023/2/7 22:18:00 [显示全部帖子]

蓝总，

A列不重复值，生成在 E列

B列不重复值，生成在 F列

C列不重复值，生成在 G列

D列不重复值，生成在 H列

ABCD四列不重复值组合

miaoqingqing

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

等级：三尾狐帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00

回复：（有点蓝）4个嵌套循环即可for each s as strin... 发帖心情

Post By：2023/2/7 23:22:00 [显示全部帖子]

蓝总，下面代码报错，怎样排除空值呢？

For Each s1 As String In DataTables("表A").GetValues("A列 Is Not Null","A列")

For Each s2 As String In DataTables("表A").GetValues("B列 Is Not Null","B列")

For Each s3 As String In DataTables("表A").GetValues("C列 Not Null","C列")

For Each s4 As String In DataTables("表A").GetValues("D列 Is Not Null","D列")

Dim r As Row = Tables("表A").AddNew()

r("E列") = s1

r("F列") = s2

r("G列") = s3

r("H列") = s4

版本不能升级，辛苦版主把代码贴出来了

下载信息 [文件大小：下载次数： ]
点击浏览该文件:1.foxdb

主题：[求助]ABCD列生成EFGH列值