标题：临时求助

1楼

qtcks 发表于：2009/10/22 14:34:00

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

2楼

kylin 发表于：2009/10/22 14:43:00

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

3楼

qtcks 发表于：2009/10/22 14:45:00

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

4楼

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

5楼

kylin 发表于：2009/10/22 17:19:00

6楼

lxl 发表于：2009/10/23 13:38:00

以下是引用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

7楼

e-png 发表于：2009/10/25 17:51:00

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

共7 条记录, 每页显示 10 条, 页签: [1]