主题：控件内容复制到表格中出问题

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

  

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

看起来不应该啊。

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

 

 

版主帮我看下嘛，谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:进销存.rar

此主题相关图片如下：uf~~$u0ub%{c{k(h_`g0gc.jpg

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:进销存.rar

谢谢版主！

学习一下