excel vba数据未从列表框中正确保存

Question

即使经过研究，我已经把头发拉了几天，所以我只是放弃并寻求帮助。

我有两个用户表单。首先，我从主窗体上的列表框中选择一个项目，然后按主窗体上的按钮。按下按钮后子窗体将打开。

然后子窗体上有一些组合框和列表框。当我单击子窗体上的保存按钮时，框（列表框和组合框）中的数据将保存在单独的工作表中。

在我重新选择主窗体上的项目然后尝试将更改保存在子窗体上之前，所有内容似乎都可以正常工作。由于某种原因，具有子表单数据的工作表刚刚被空白重写（似乎也是随机的）（控件在保存数据时被命名为control1，control2，... control47用于循环。

我有listbox子将数据读回listbox。当我调试（debug.frm.controls（“control”＆amp; i）时，似乎没有加载listbox（组合框似乎没问题）但是它仍然在loading subform中正确显示只有当我尝试保存更改时，它才会删除部分条目，而不是保存更改。

For x = 1 To 47 answer = survey.Cells(findr, x + 9).Value If answer = "" Then frmSurvey.Controls("reg" & x).Value = "" Else m = Application.WorksheetFunction.Match(answer, list.Range("table_s" & x)) frmSurvey.Controls("reg" & x).ListIndex = m - 1 frmSurvey.Controls("reg" & x).Selected(m - 1) = True frmSurvey.Controls("reg" & x).Value = answer End If ：

saving

For i = 1 To 47 For m = 0 To frmSurvey.Controls("reg" & i).ListCount - 1 If frmSurvey.Controls("reg" & i).Selected(m) = True Then ws.Cells(findr, i + 9) = frmSurvey.Controls("reg" & i).Value End If Next m ：

.select(i)=true

接下来我

我认为问题在于加载。我认为这是因为即使分配了值，也没有选择它，因此列表框未正确加载。但即使我添加{{1}}，它仍然无效。

或者也许是别的什么？非常感谢有人可以提供帮助！