我有一些代碼可以完美地提交表單中包含資料的三個串列框的內容，但是當串列框為空時，我會遇到型別不匹配錯誤。
For i = LBound(Me.PartNoList.List) To UBound(Me.PartNoList.List)
parts = parts & IIf(parts = "", "", vbNewLine) & Me.PartNoList.List(i, 0)
Next
With Sheets("Sales Order Log").Range("Sales_Data_Start")
.Offset(TargetRow, 1).Value = SalesOrderNo
' (...)
.Offset(TargetRow, 5).Value = parts
End With
For i = LBound(Me.PartDescList.List) To UBound(Me.PartDescList.List)
descparts = descparts & IIf(descparts = "", "", vbNewLine) & Me.PartDescList.List(i, 0)
Next
With Sheets("Sales Order Log").Range("Sales_Data_Start")
.Offset(TargetRow, 1).Value = SalesOrderNo
' (...)
.Offset(TargetRow, 6).Value = descparts
End With
For i = LBound(Me.PartQntList.List) To UBound(Me.PartQntList.List)
qntparts = qntparts & IIf(qntparts = "", "", vbNewLine) & Me.PartQntList.List(i, 0)
Next
With Sheets("Sales Order Log").Range("Sales_Data_Start")
.Offset(TargetRow, 1).Value = SalesOrderNo
' (...)
.Offset(TargetRow, 7).Value = qntparts
End With
非常感謝診斷為什么會發生這種情況的任何幫助。
uj5u.com熱心網友回復：
在參考內容之前，您需要檢查每個串列框是否為空，例如
If Me.PartNoList.ListIndex <> -1 Then
在錯誤訊息中按 End 會停止其余代碼的運行，因此正在發生其他事情來發布該資料，或者它是上次運行遺留下來的
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/479539.html