Dim nma() As StringDim nmb() As StringSystemready = FalseFor Each r As Row In Tables("表A").Rows Dim dr As DataRow = DataTables("表B").find("年= " & r("年") & " and 月=" & r("月") & " and 编号=‘" & r("编号") & "’")if dr is nothing then
dr = DataTables("表B").AddNew
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = r(nma(i))
Next
end f
r("c1") = r("c2")
r("c2")=nothing
Next
Systemready = True