加载表格内容代码: Sub nofunc() '-------------------------填充no表格 Dim i, txt Set Adc1.Recordset = rs1 With no If Adc1.Recordset.EOF Then For i = 0 To 9 txt = txt & "0" & vbTab Next .AddItem txt Else While Not Adc1.Recordset.EOF For i = 0 To 9 txt = txt & Adc1.Recordset.Fields(i).Value & vbTab Next .AddItem txt txt = "" Adc1.Recordset.MoveNext Wend End If End With End Sub