dim zcqc2 as Integer = 2
dim zcqm2 as Integer = 4
Dim zclqch As Integer
For Each aw As String In zbyjhs
With Tables("数据表")
zclqch = .findrow(.Cols(zc2).name & " Like '*" & aw & "'")
'zclqch = Tables("数据表").Find(aw,0,zc2,False,False,True)
End With
If zclqch > -1 Then
Dim zcye As Double = val(Tables("数据表").Value(zclqch,zcqc2))
Dim zmye As Double = val(Tables("数据表").Value(zclqch,zcqm2))
Dim fdr As DataRow = DataTables("物料表").Find("项目 like '*" & aw & "'")
If fdr IsNot Nothing Then
fdr("本期数") = zcye
fdr("本年累计数") = zmye
End If
End If
Next