vb高手请帮忙啊！！！ 这段是什么意思啊？

来源：百度知道 编辑：UC知道 时间：2024/05/16 18:22:49
Sub disp2()
Text2(0).Text = Adodc1.Recordset.Fields(0)
Text2(1).Text = Adodc1.Recordset.Fields(1)
For i = 6 To 13
Text2(i - 4).Text = Adodc1.Recordset.Fields(i)
Next i
End Sub

这个是自定了一个函数disp2() ,在vb窗体界面上有碍10个TEXT控件数组被依此赋予数据库内的值
For i = 6 To 13
Text2(i - 4).Text = Adodc1.Recordset.Fields(i)
Next i
是跳过了4个数据库内的记录

没学过VB,但是觉得就是一个函数
给Text2(1).Text直到Text2(9).Text赋值.
Text2(0).Text = Adodc1.Recordset.Fields(0)
Text2(1).Text = Adodc1.Recordset.Fields(1)
Text2(2).Text = Adodc1.Recordset.Fields(6)
Text2(3).Text = Adodc1.Recordset.Fields(7)
Text2(4).Text = Adodc1.Recordset.Fields(8)
Text2(5).Text = Adodc1.Recordset.Fields(9)
Text2(6).Text = Adodc1.Recordset.Fields(10)
Text2(7).Text = Adodc1.Recordset.Fields(11)
Text2(8).Text = Adodc1.Recordset.Fields(12)
Text2(9).Text = Adodc1.Recordset.Fields(13)