- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]ABCD列生成EFGH列值 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=185156)
-- 发布时间：2023/2/7 20:05:00
-- [求助]ABCD列生成EFGH列值
求助ABCD列生成EFGH列值
此主题相关图片如下：abcd列不重复值生成排列组合.png
-- 发布时间：2023/2/7 20:27:00
--
生成规则？
-- 发布时间：2023/2/7 22:18:00
-- 回复：（有点蓝）生成规则？
蓝总，
A列 不重复值，生成在 E列
B列 不重复值，生成在 F列
C列 不重复值，生成在 G列
D列 不重复值，生成在 H列
ABCD四列不重复值组合
-- 发布时间：2023/2/7 22:32:00
--
4个嵌套循环即可
for each s as string in datatables("a").getvalues("A列")
for each s as string in datatables("a").getvalues("B列")
-- 发布时间：2023/2/7 23:22:00
-- 回复：（有点蓝）4个嵌套循环即可for each s as strin...
蓝总，下面代码报错，怎样排除空值呢？
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
Next
Next
Next
Next
版本不能升级，辛苦版主把代码贴出来了
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:1.foxdb |
-- 发布时间：2023/2/8 8:31:00
--
http://www.foxtable.com/webhelp/topics/2747.htm