主题：提示此代码错误 dr("纸材编号及名称")=e.DataRow(r)("E21")

狐爸，你好！

 

dr("纸材编号及名称")=e.DataRow(r)("E21")

此代码错误，请教哪里不对！谢～～

 

以下是要把所选行每一行中的三组数据分别复制到新表中，

Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("纸材编号及名称", Gettype(String), 32)
dtb.AddDef("订单数量", Gettype(Integer))
dtb.AddDef("制程", Gettype(String), 7)
dtb.AddDef("订单号码", Gettype(String), 15)
dtb.Build()
With Tables("JF")
    For r As Integer = .TopPosition To .BottomPosition 
  Dim dr As DataRow = DataTables("统计").AddNew
dr("纸材编号及名称")=e.DataRow(r)("E21")
dr("订单数量")=e.DataRow(r)("E9")
dr("制程")=e.DataRow(r)("E11")
dr("订单号码")=e.DataRow(r)("E1")
  Dim dr1 As DataRow = DataTables("统计").AddNew
dr1("纸材编号及名称")=e.DataRow(r)("E22")
dr1("订单数量")=e.DataRow(r)("E7")
dr1("制程")=e.DataRow(r)("E11")
dr1("订单号码")=e.DataRow(r)("E1")
  Dim dr2 As DataRow = DataTables("统计").AddNew
dr2("纸材编号及名称")=e.DataRow(r)("E23")
dr2("订单数量")=e.DataRow(r)("E20")
dr2("制程")=e.DataRow(r)("E11")
dr2("订单号码")=e.DataRow(r)("E1")
    Next
End With
MainTable= Tables("统计")

你上面代码放在哪个位置？？？

不管用于哪里，都没有这么用的，将e.DataRow(r)("E21")改为：

datatables("××××表").DataRow(r)("E21")

也不行呢？我是放在按钮里用，请教 ！！！ 请教 ！！！

谢谢！！

呵呵，按钮中怎么能用 e 呢？   再说你每选定一行在统计表中就要增加3行，是这样吗，而且被赋值的列是原表不同列数据，看晕了。。。 发项目上来，不然很难有人能看懂了。

是的，你问用在哪里我就有点明白了，

我是要将选择行中的三列内容复制到统计表中的同一列，然后统计做EXSEL报表，

不能用E参数，以下这样也不行

datatables("××××表").DataRow(r)("E21")

请教有没有别的办法？谢谢～～～

先系统看看帮助吧，心急吃不得热豆腐，好东西是值得花点时间去掌握的：

 

 

 

没明白您的意思，建议看看这个，填充并利用自动统计也未尝不可：

 

http://www.foxtable.com/help/topics/0680.htm