这个简单的东西写不来

Question

本帖最后由 jia297 于 2011-07-26 23:22:50 编辑

Answer 1

while not Adodc3.Recordset.eof
   ...
   Adodc3.Recordset.MoveNext
wend

Answer 2

主要是要判断note等于几后下边才能写。

Answer 3

唉， 把文本框弄成数组，
If Adodc3.Recordset.EOF = False Then
                    Adodc3.Recordset.MoveFirst
                    Dim i As Integer
                    For i = 1 To 5
                    txtsz(Trim(i - 1)).Text = Adodc3.Recordset.Fields("items")
                    txtpm(Trim(i - 1)) = Adodc3.Recordset.Fields("name")
                    Adodc3.Recordset.MoveNext
                    Next i
        
                 End If