主题：属性运行

Dim Cols1() As String = {"工序","流程"}
          Dim Cols2() As String = {"工序","流程"}
          For Each dr4 As DataRow In DataTables("产品生产流程").Select("名称=  '" & dr6("流程") & "'")
          Dim dr5 As DataRow = DataTables("生产计划跟单").AddNew()
          For i As Integer = 0 To Cols1.Length -1
            dr5(Cols2(i)) = dr4(Cols1(i))
            dr5("产品编号") = r("产品编号")
            dr5("规格型号") = r("规格型号")
            dr5("评审编号") = r("评审编号")
          Next
以上代码我是通过其它表按钮向生产计划跟单中自动添加的，而生产计划跟单表属性我编写了代码，这些自动添加上去的数据，怎么表属性的代码不能运行。