Question

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

我可以使用我的代码执行此任务，但是listbox将被阻止，我无法滚动数据（没有删除，它工作正常，但新数据是在旧数据之后添加的）

你能告诉我怎样才能解决这个问题？为什么会出现这个问题？

这是我的代码：

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

Answer 1

我找到了它：）

我已阅读此post。如果我将我的代码更改为：

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

工作正常

列表框将在删除后阻塞，然后插入数据

1 个答案: