以下是引用qtcks在2009-10-22 14:47:00的发言: 以解决 dim i as integer i=1 For Each c As Row In Tables("表一").Rows' e.Form.Controls("textbox1").Value= "这里如何写" '当前遍历行的计数行 i=i+1 next
需要用到循环计数的时候可以用For 不用 For Each For i As Integer = 1 To Tables("表一").Rows.Count 'i是计数 '用Tables("表一").Rows(i)引用每一行 Next