請問此段代碼還有更簡便的寫法嗎?

Question

把With Adodc1.Recordset放在最外层

Answer 1

定义a=.Fields.Count - 1
然后使用可以提高速度

Answer 2

定义a=.Fields.Count - 1
，相当于只计算一次字段数，然后使用可以提高速度
同时可以把所有WITH和END WITH去掉

Answer 3

可以采用Text1(i-5)，上面的代码就可以优化了~~

Answer 4

看错了：（
更正：
可以采用Text1((0-4)*.Fields.Count)，上面的代码就可以优化了~~For i = 0 To Frame1.Count - 1
  If Frame1(i).Visible = True Then
     With Adodc1.Recordset
      For j = 0 To .Fields.Count - 1
         Text1((i-1)*.Fields.Count).Text = .Fields(j)   '其中text1(i-1).container 為frame1(i-1)
      Next j
      
     End With      
 End If
Next i

Answer 5

定义a=.Fields.Count！
上面的text1(（i-1）*a).container 為frame1(i-1)

Answer 6

w18ily 
 看來你看錯我的代碼的意思了,但-謝謝你的建議@1
 請你仔細再看一遍