假设我现在有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编辑过]
加好友 
发短信
Post By：2012/11/11 17:15:00 [只看该作者]
