0

我有一个列表框，它只显示一个值（它与一个只有两个列的表相关。我从一个文本文件填充这个表）。我想，如果加载了新的文本文件，则应删除旧数据并应向我显示新数据。

我可以用我的代码完成这项任务，但列表框将被阻止，我无法滚动数据（不删除，它工作正常，但新数据是在旧数据之后添加的）

你能告诉我如何解决这个问题吗？为什么会出现这个问题？

这是我的代码：

Private Sub Command11_Click()
Dim ifile As Integer

Dim name As String
Let ifile = FreeFile
 name = util1.fDateiName("*.lab", "Lable")
DoCmd.RunSQL ("DELETE * FROM tb_lable_Daten") 'if I delete this Delete command , it works fine( the list box will not be dlocked
Open name For Input As ifile
While Not EOF(ifile)
Line Input #ifile, entireline
 DoCmd.RunSQL ("INSERT INTO tb_lable_Daten (name) VALUES ('" & entireline & "');")
Wend
List5.Requery
List5.SetFocus
MsgBox ("Successfully saved")
End Sub
4

1 回答 1

0

我找到了 ：）

我读过这篇文章。如果我将代码更改为：

...
 Me.RecordSource = ""
 DoCmd.RunSQL ("DELETE * FROM tb_lable_Daten")
 Me.RecordSource = "SELECT name FROM tb_lable_Daten"
...

效果很好

于 2013-07-31T08:33:22.047 回答