For Each dr2 As Row In Tables("铝窗库存表").Rows
Dim fdr7 As DataRow = DataTables("铝窗库存表").find("生产年月 ='" & dr2("上月") & "' and 产品名称='" & dr2("产品名称") & "' And 产品颜色='" & dr2("产品颜色") & "'")
dr2("边封_上月结存") = fdr7("边封_本月结存")
Next
报错:未找到对象
第2个问题,如果3月生产了“产品1”,2月没有生产,1月生产了“产品1”,3月产品1的“上月结存”应该等于1月产品1的“本月结存”,“生产年月”为字符列。这个不知道写代码