在DataCombo中选取记录后，如何让另外几个文本框填入rowsource 中的其它几个字段？

Question

请问高手下面的代码有什么错误？Private Sub DataCombo2_Change()    With Adodc1.Recordset .Requery
 While Not .EOF
     DataCombo2.Text = .Fields(0)
     txtFields(4).Text = .Fields(1)
     txtFields(1).Text = .Fields(2)
   .MoveNext
 Wend
 End With
End sub

Answer 1

在使用DataCombo控件时，要做到自动绑定一共要设置5个属性，具体的方法可以在msdn中找到

Answer 2

不太看得懂这样写的目的，　DataCombo2.Text = .Fields(0) 　会不会再次触发 _Change()事件啊？
 
这句While Not .EOF ?   每一次触发Change()　都要让记录集给 .MoveNext一直到最尾部？这样该事件能做到什么，实在看不出来。

Answer 3

表内数据不多的话，建议你这样简单修改，试试看得出的结果是不是你想要的：Private Sub DataCombo2_Change()    With Adodc1.Recordset .Requery
 .movefist
 While Not .EOF
     if DataCombo2.Text = .Fields(0) then
       txtFields(4).Text = .Fields(1)
       txtFields(1).Text = .Fields(2)
       exit sub
     endif
   　.MoveNext
 Wend
 End With
End sub

Answer 4

非常感谢penglc(猎者) ，问题已经解决了。