主题：临时求助

For Each c As Row In Tables("表一").Rows'
      e.Form.Controls("textbox1").Value=　"这里如何写"　　　＇当前遍历行的计数行
next





如：
   for i=0 to 100
      e.Form.Controls("textbox1").Value=　i
   next

 for i=0 to Tables("表一").Count-1
Dim dcn as string = "textbox" + Cstr(i)
      e.Form.Controls(dcn).Value=　Tables("表一")(i,"某列")
   next

这样对原有的代码改动太大了。时间紧迫，
我只想获取当前遍历的 id ，到哪就ok了，不需要获取表一的值

以解决
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

Controls("textbox1")  是多行文本框吧？