- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]充填求助 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105940)
-- 发布时间：2017/8/29 16:53:00
-- [求助]充填求助
想问下 我在一个表里面检索到多行数据（副本的表），如何将所有行按一行一行填充到另一个表的某一行单元格内（此单元格是长文本类型）.
-- 发布时间：2017/8/29 16:57:00
--
Dim str As String = ""
For Each r As Row In e.form.controls("table1").Table.rows
str &= r("第一列") & ","
Next
msgbox(str)
-- 发布时间：2017/8/29 17:14:00
--
多列数据 不单单都是是字符形式 还有整数啥的 ，是不是设置 str 综合类型？
-- 发布时间：2017/8/29 17:16:00
--
Dim str As String = ""
For Each r As Row In e.form.controls("table1").Table.rows
str &= r("第一列") & "," & r("第二列") & vbcrlf
Next
msgbox(str)
-- 发布时间：2017/8/29 17:20:00
--
str &= r("第一列") & "," & r("第二列") & vbcrlf **** 这句话是什么意思，每个位点
-- 发布时间：2017/8/29 17:27:00
--
意思是把每一列的值连接起来，赋值给str。
或者，你个例子发上来，说明你做到什么效果。
-- 发布时间：2017/8/29 17:31:00
--
Tables("收费明细").Rows.AddNew()
Dim str As Object = ""
For Each r As Row In e.form.controls("Table1").Table.rows
str &= r("治疗项目") & " " & r("数量") & vbcrlf & r("价格") & vbcrlf
Next
Tables("收费明细").Current("条目收费形式") = str
这是我写的
就是将账单 一条条列出来 最好每条都有间隙 ，这样打印也方便.
（vbcrlf ） 是啥意思
-- 发布时间：2017/8/29 17:32:00
--
我测试了 。输出正常了 ，就是想知道那句话的原理，和 如何变得更好看.
-- 发布时间：2017/8/29 17:35:00
--
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
-- 发布时间：2017/8/29 18:13:00
--
谢谢版主 受益匪浅
