datacombo控件如何即时更新数据?
本帖最后由 bcrun 于 2012-11-29 16:05:39 编辑 datacombo控件已经绑定好了数据库,也能正常显示,现在通过一个文本框加入新数据到了数据库,但datacombo显示不了新加入的数据,如何做?
我的代码如下:
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("sname") = Text1.Text
Adodc1.Recordset.Update
Adodc1.Refresh
DataCombo1.ReFill
DataCombo1.Refresh
End Sub
Private Sub Form_Load()
With DataCombo1
Set .DataSource = Adodc1
.DataField = "sname"
Set .RowSource = Adodc1
.ListField = "sname"
End With
End Sub