- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 组合请教 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=57215)
-- 发布时间：2014/9/21 9:17:00
-- 组合请教
大师：好！
-- 发布时间：2014/9/21 9:21:00
--
大师：好！
-- 发布时间：2014/9/21 9:34:00
--
Dim arys() As String = {"1", "2", "3", "4"}
For i As Integer = 0 To arys.Length - 2
For j As Integer = i+1 To arys.Length - 1
output.show(arys(i) & "," & arys(j))
Next
Next
-- 发布时间：2014/9/21 10:22:00
--
谢谢！您是我的大救星！
-- 发布时间：2014/9/21 10:22:00
--
示例
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目20.zip |
-- 发布时间：2014/9/21 10:32:00
--
Dim ls As List(Of String) = DataTables("表A").GetValues("单位", "单位 is not null")
For i As Integer = 0 To ls.Count - 2
For j As Integer = i+1 To ls.Count - 1
Dim ndr As DataRow = DataTables("表B").AddNew
ndr("单位组合") = ls(i) & "-" & ls(j)
Next
Next
-- 发布时间：2014/9/21 10:38:00
--
后面的列的内容如何查询填进去？
-- 发布时间：2014/9/21 10:43:00
--
Dim ls As List(Of String) = DataTables("表A").GetValues("单位", "单位 is not null")
For i As Integer = 0 To ls.Count - 2
For j As Integer = i+1 To ls.Count - 1
Dim ndr As DataRow = DataTables("表B").AddNew
ndr("单位组合") = ls(i) & "-" & ls(j)
Dim dr1 As DataRow = DataTables("表A").Find("单位 = \'" & ls(i) & "\' and 对象 = \'" & ls(j) & "\'")
Dim dr2 As DataRow = DataTables("表A").Find("单位 = \'" & ls(j) & "\' and 对象 = \'" & ls(i) & "\'")
ndr("性质1") = dr1("性质")
ndr("性质1金额") = dr1("金额")
ndr("性质2") = dr2("性质")
ndr("性质2金额") = dr2("金额")
Next
Next
-- 发布时间：2014/9/21 10:58:00
--
谢谢！谢谢！为何您昨日不上班呢！昨日钓鱼时脑袋里还在想此段代码，鱼吃钩都不知道，一提杆，一条大鱼在勾上，差一点把我拖进水里。咔嚓一声，钓鱼竿一分为二。
-- 发布时间：2014/9/21 11:23:00
--
楼上实乃姜太公转世之奇人也！