Dim t As Table = Tables("表A")
For i As Integer = 0 To 13
e.Form.Controls("BarCode" & i +1).code = t.Rows(i)("条码值") & " " & t.Rows(i)("收容数")
e.Form.Controls("label" & i +1).text = "品番:" & t.Rows(i)("品番")
e.Form.Controls("labelA" & i +1).text = "收容数:" & t.Rows(i)("收容数")
Next
你可能有插入行或删除行或移动行的操作,行号对不上了。按Table而不是DataTable操作就不会出错。
好多狐友,按电子表格的老习惯,对行列的插入、删除、移动,很随意,到用代码判断的时候,错都不知道出在哪。