以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  将指定的行、列单元格内容按顺序合并到一个单元格  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=188082)

--  作者:爱相随
--  发布时间:2023/8/31 12:47:00
--  将指定的行、列单元格内容按顺序合并到一个单元格
老师,我需要将指定行和对应列单元格的数值合并到另一个数据表的一个单元格里,比将表A的1-9行对应的F列+G列的值,按F1+G1、F2+G2...的顺序合并到表B的某一个单元格,请问代码该怎么写呢,麻烦老师指点,或者直接贴出来,感激不尽。。。。。
--  作者:有点蓝
--  发布时间:2023/8/31 13:36:00
--  
dim s as string
for i as integger = 0 to 8
s = s & tables("a").rows(i)("f") & tables("a").rows(i)("g")
next

--  作者:爱相随
--  发布时间:2023/8/31 14:35:00
--  
谢谢老师
需要进一步,比如表A有一列为“合并标志”列,其内容有“甲、乙、丙、丁”,其中内容为甲的共有9行,内容为丙的有15行,表B也有一列为“合并标志”列,现在要将表A“合并标志”列内容为甲的共9行的值合并到表B“合并标志”列内容为甲的S列。

--  作者:有点蓝
--  发布时间:2023/8/31 14:37:00
--  
使用select获取符合条件的行:http://www.foxtable.com/webhelp/topics/0400.htm
--  作者:爱相随
--  发布时间:2023/8/31 14:50:00
--  
符合条件的行会的,就是合并的代码
If e.DataCol.Name = "项目辅助" Then \'发生变化的是产品编号吗?
    \'在产品表找出该产品
    Dim dr As DataRow 
    Dim s As String
    dr = DataTables("工具表").Find("项目辅助 = \'" & e.DataRow("项目辅助") & "\'" )
    If dr IsNot Nothing \'如果找到, 则设置各列内容
    For i As integger
    s = s & Tables("工具表").rows(i)("f") & Tables("a").rows(i)("g")
Next


--  作者:有点蓝
--  发布时间:2023/8/31 14:52:00
--  
遍历select的结果啊

Dim drs As List(Of DataRow)
drs = DataTables("订单").Select("[产品] = \'PD01\' And [日期]= #1/4/1999#")
Dim s As String
For Each dr As Datarow In drs
   
s = s &  dr("xxxx"
Next

--  作者:爱相随
--  发布时间:2023/9/1 10:26:00
--  
老师,麻烦再看看下面代码该怎么修改呢?谢谢!
Dim drs As List(Of DataRow)
drs = DataTables("工具表").Select([合并标志] = dr("项目辅助"))
Dim s As String
For Each dr As DataRow In drs
   s = s &  dr("放款时间") 
Next

--  作者:爱相随
--  发布时间:2023/9/1 10:27:00
--  
提示未声明[合并标志]
--  作者:有点蓝
--  发布时间:2023/9/1 10:42:00
--  
参考:http://www.foxtable.com/webhelp/topics/1284.htm
--  作者:爱相随
--  发布时间:2023/9/1 11:00:00
--  
不会改啊,麻烦老师直接修改一下呗,非常感谢谢