vsflexgrid 即时更新问题

Question

加载表格内容代码:
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我用ADC1.REFRESH
VS1.REFRESH'--------VS1为表格控件
我想添加数据后能够马上在表格里面看到更新,请问大家代码该怎么写

Answer 1

好像只有直接绑定数据库Set VSFlexGrid1.DataSource = rs才能即时更新的吧，否则的话应该只能进行平常的ADO代码更新。