以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]复制  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=193758)

--  作者：江南小镇 --  发布时间：2024/10/11 9:07:00 --  [求助]复制 老师，下面代码报错，我只要复制2列。 If e.DataCol.Name = "群组分类" OrElse e.DataCol.Name = "客户供应商" Then     If e.DataRow.IsNull("群组分类") = False AndAlso e.DataRow.IsNull("客户供应商") = False Then         Dim dr As DataRow = DataTables("qzfl").Find("[群组分类] = \'" & e.DataRow ("群组分类") & "\' And [客户供应商] = \'" & e.DataRow("客户供应商") & "\'")         If dr Is Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing             dr = DataTables("qzfl").AddNew         End If         For Each dc1 As DataCol In DataTables("通讯录").DataCols             dr(dc1.Name) = e.DataRow(dc1.Name)         Next     End If End If 此主题相关图片如下：2024-10-11 09 03 19.png

--  作者：有点蓝 --  发布时间：2024/10/11 9:30:00 --   直接写 dr("xxx") = e.DataRow("xxx") dr("xxx2") = e.DataRow("xxx2")

--  作者：江南小镇 --  发布时间：2024/10/11 13:57:00 --   谢谢老师