假设我现在有A表和B表,A表有A1列,A2列,B表有B1列,B2列。我想写段代码,遍历A1列和B1列,如果B1列的某一行的值与A1列的某一行相同,那么自设设定B2列的该行的值等于A2的列的该行的值,请问代码该怎么写,求高手给个思路
我在afterload事件中写了段代码,但不起作用,请帮我看看问题出在哪里
Dim i As Integer = 0
Dim j As Integer = 0
Do While i <= Tables("BOM单").Rows.count
Do While j <= Tables("产品信息表").Rows.count
If Tables("BOM单").rows(i)("产品名称") = Tables("产品信息表").Rows(j)("品名") Then
DataTables("BOM单").DataRows(i)("筒子品名") = DataTables("产品信息表").DataRows(j)("筒子")
DataTables("BOM单").DataRows(i)("标签品名") = DataTables("产品信息表").DataRows(j)("标签")
End If
j = j + 1
Loop
i = i + 1
Loop
[此贴子已经被作者于2012-11-11 17:32:13编辑过]