- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 批量复制到另外一个表 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=128027)
-- 发布时间：2018/11/27 13:59:00
-- 批量复制到另外一个表
老师，能帮忙看看这个为什么找不到列呢？
就是把窗口1_Table2 筛选的出来的表新建行并且复制相关的内容到窗口1_Table2（表A）为什么不对呢？感谢 安心
比如先在窗口1_Table2筛选出的行，然后点击按钮，把窗口1_Table2筛选的行复制到窗口1_Table1，窗口1_Table2筛选出有几行在窗口1_Table1建几行，然后在依次复制字符到对于的列，感谢 感谢
Dim t As Table = Tables("窗口1_Table2")
For i As Integer = t.TopPosition To t.BottomPosition
Dim dra As Row = Tables("表A").addnew
dra("编号列")=e.form.controls("Label1").text
dra("粘贴列_名称") = Tables("窗口1_Table2").Current("复制列_名称")
dra("粘贴列_价格列") = Tables("窗口1_Table2").Current("复制列_价钱")
dra("粘贴列_备注") = Tables("窗口1_Table2").Current("复制列_备注")
Next \'批量复制到商品附表
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:筛选复制学习.table |
[此贴子已经被作者于2018/11/27 14:07:09编辑过]
-- 发布时间：2018/11/27 15:02:00
--
Dim t As Table = Tables("窗口1_Table2")
For i As Integer = t.TopPosition To t.BottomPosition
Dim r As Row = t.Rows(i)
Dim dra As Row = Tables("窗口1_Table1").addnew
\'dra("编号列")=e.form.controls("Label1").text
dra("复制列_名称") = r("粘贴列_名称")
dra("复制列_价钱") = r("粘贴列_价格列")
dra("复制列_备注") = r("粘贴列_备注")
Next \'批量复制到商品附表
-- 发布时间：2018/11/27 16:19:00
--
谢谢 老师 ，只是好像还是不对呢？没有复制字符呢， 感谢 感谢
-- 发布时间：2018/11/27 16:30:00
--
代码没问题，请认真测试。执行代码后，在表格的最后增加行。