以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  控件内容复制到表格中出问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=49962)

--  作者:阆子天涯
--  发布时间:2014/4/26 17:22:00
--  控件内容复制到表格中出问题

这段代码的目的是将窗口中的控件内容与窗口中的库调明细_副表赋值到库调明细_主表中,数据表可以复制进去,但是控件内容就不能复制过去!


  

For Each r1 As Row In Tables("库调明细_副表").Rows
        Dim r2 As Row = Tables("库调明细表_主表").AddNew
        For Each c As Col In Tables("库调明细_副表").Cols
            If Tables("库调明细表_主表").Cols.Contains(c.name) Then
                r2(c.name) = r1(c.name)
            End If
           
        Next
        r2("单据日期")= rq.Value    ‘主要输这一段代码的问题,控件内容复制到表格中去
        r2("收发类型")= djlx.text
        r2("门店")= md.text
        r2("业务单号")= djbh.text
    Next


--  作者:lsy
--  发布时间:2014/4/26 17:35:00
--  
看起来不应该啊。
--  作者:阆子天涯
--  发布时间:2014/4/26 20:46:00
--  

就是,编译通过了,执行的时候提示如图所!

 

 


--  作者:阆子天涯
--  发布时间:2014/4/26 20:48:00
--  
版主帮我看下嘛,谢谢!
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:进销存.rar


图片点击可在新窗口打开查看此主题相关图片如下:uf~~$u0ub%{c{k(h_`g0gc.jpg
图片点击可在新窗口打开查看

--  作者:阆子天涯
--  发布时间:2014/4/26 21:43:00
--  

烦请各位高手指点下,第一运还可以,第二次就不可以了,提示未将对象引用设置到实例了,谢谢!


--  作者:lsy
--  发布时间:2014/4/27 9:58:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:进销存.rar


--  作者:阆子天涯
--  发布时间:2014/4/27 22:30:00
--  

谢谢版主!


--  作者:zsslly
--  发布时间:2016/4/17 20:54:00
--  
学习一下