主题：[求助]充填求助

想问下   我在一个表里面检索到多行数据（副本的表），如何将所有行按一行一行填充到另一个表的某一行单元格内（此单元格是长文本类型）.

Dim str As String = ""
For Each r As Row In e.form.controls("table1").Table.rows
    str &= r("第一列") & ","
Next
msgbox(str)

多列数据  不单单都是是字符形式  还有整数啥的 ，是不是设置 str 综合类型？

Dim str As String = ""
For Each r As Row In e.form.controls("table1").Table.rows
    str &= r("第一列") & "," & r("第二列") & vbcrlf
Next
msgbox(str)

str &= r("第一列") & "," & r("第二列") & vbcrlf   **** 这句话是什么意思，每个位点

 意思是把每一列的值连接起来，赋值给str。

 

 或者，你个例子发上来，说明你做到什么效果。

我测试了 。输出正常了   ，就是想知道那句话的原理，和 如何变得更好看.

dim nr = Tables("收费明细").Rows.AddNew()

Dim str As Object = ""
For Each r As Row In e.form.controls("Table1").Table.rows
    str &= r("治疗项目") & "     " & r("数量") & "     " &  r("价格") & vbcrlf
Next

nr("条目收费形式") =   str

 

 

http://www.foxtable.com/webhelp/scr/0221.htm

 

谢谢版主   受益匪浅