1

我正在开发一个提交 dcm 文件的工具，现在我有一个错误，当它们被用作其他添加文件的源文件时，我拒绝提交已删除的文件。

程序 ：

1- 复制名为 FILE_A 的文件并将其命名为 FILE_B 并对 FILE_B 中的参数进行一些更改，然后使用工具提交更改（选择 FILE_A 作为参考文件）.. 工作得很好。

2-删除FILE_A并保留FILE_B，然后使用该工具提交..工具将崩溃并被关闭。

这是引发异常并关闭工具的行：

If FilesGrid.Item(0, a).Value = True And FilesGrid.Item(2, a).Value.ToString() = "Removed" Then

    FilesRemoved.Add(FileLocalPos.Item(FilesGrid.Item(1, a).Value.ToString))
    myFileVector.Add(FileLocalPos.Item(FilesGrid.Item(1, a).Value.ToString))

End If

异常消息是：

Argument "index" is not a valid value

非常感谢您的帮助..

4

2 回答 2

1

只是一个猜测：

保存FilesGrid.Item(1, a).Value.ToString到变量：

If FilesGrid.Item(0, a).Value = True And FilesGrid.Item(2, a).Value.ToString() = "Removed" Then
    Dim l_itemIndex = FilesGrid.Item(1, a).Value.ToString

    FilesRemoved.Add(FileLocalPos.Item(l_itemIndex))
    myFileVector.Add(FileLocalPos.Item(l_itemIndex))
End If
于 2012-10-22T18:46:45.747 回答
0

此消息表示 Collection 不包含您尝试使用 Item 功能定位的项目。

要防止出现此消息，请在尝试引用项目之前使用 Contains 方法。例如

If FilesGrid.Contains(0, a) and FilesGrid.Contains(2, 1) Then
    If FilesGrid.Item(0, a).Value = True And FilesGrid.Item(2, a).Value.ToString() = "Removed" Then
于 2019-11-13T03:44:56.783 回答