大家好，
我有一个用户表单。列表框中包含我需要放置在XRecordData中的数据，但当我在列表中输入10项时，例程会显示错误：
“对象‘IAcadXrecord’的方法‘SetXrecordData’失败”
如果有人能告诉我我做错了什么？
提前谢谢你。。。
- Public Sub SaveBatchList()
- Dim LBL5
- Dim BatchName
- Dim BatchLines
- Dim BatchPath
- Dim XCode() As Integer
- Dim i As Integer
- LBL5 = UserForm1.ListBox5.List
- ReDim BatchName(UBound(LBL5))
- ReDim BatchLines(UBound(LBL5))
- ReDim BatchPath(UBound(LBL5))
- ReDim XCode(UBound(LBL5))
- For i = 0 To UBound(LBL5)
- BatchName(i) = LBL5(i, 0)
- BatchLines(i) = LBL5(i, 1)
- BatchPath(i) = LBL5(i, 2)
- XCode(i) = i + 1
- Next
- BatchNameXRec.SetXRecordData XCode, BatchName
- BatchLinesXRec.SetXRecordData XCode, BatchLines
- BatchPathXRec.SetXRecordData XCode, BatchPath
-
-
- End Sub
| 
置顶卡
