[求助]关于列表框的问题

darknessey

Option Compare Database

Private Sub tt() Dim s As String

DoCmd.OpenForm ("fff")

Forms![fff]!

.AddItem "ddd"

End Sub 这段代码成功的在表“fff”上的 list （列表框）中加入值“ddd”

可当我关闭窗体后再打开，列表框又变为空白。请问是什么原因？如何解决？

Kevin

如果你的列表框不是绑定的，则窗体每次开启时会重新初始化此控件。你要把这个段代码写进窗体的open事件中去。