VB6 Split string into array Error "Can't assign into array" 编译错误

Question

我想在 VB6 中将一个字符串拆分成一个数组。

字符串存储在数据库中，如下所示：

"By Value : "

有时它可能在冒号后的末尾包含更多内容，这就是我在 if 语句中比较它时要拆分它的原因，如下所示。

总的来说我的代码是这样的：

Dim deliveryType(2) As String

deliveryType = Split(vaGoodsInLine.FieldValue("Comment"), ":")

If deliveryType(0) = "By Value " Then
 'Do Something
End IF

我收到以下错误

我还尝试将数组定义为没有大小的变体，如下所示：

Public deliveryType() As Variant

但是我得到了这个错误

Answer 1

Dim deliveryType() As String
deliveryType = Split(vaGoodsInLine.FieldValue("Comment"), ":")
Dim deliveryTypeValue As String

If Not UBound(deliveryType) = 0 Then
    deliveryTypeValue = NullStr(deliveryType(0))
End If
    
If deliveryTypeValue = "By Value" Then
    'Do Something
End IF

这对我有用。

VB6 Split string into array Error "Can't assign into array" 编译错误

VB6 Split string into an array Error "Can't assign into array" compile error

arrays

vb6