把字符给数组赋值的错误!!!!!!!!!!

Question

Dim sr As TextStream
        Dim fileStr As String
        Dim fso As New Scripting.FileSystemObject
        CommonDialog1.ShowOpen
        fileStr = CommonDialog1.filename
        
        If fileStr = "" Then
            MsgBox ("未选择文件，不能导入数据！")
            Return
        End If
        If Not fso.FileExists(fileStr) Then
                MsgBox ("文件  " & fileStr & "未找到或格式不正确!")
                Return
            End If
        '  Dim FILE_NAME As String = fileStr
         Set sr = fso.OpenTextFile(fileStr)
'
     
'        Dim sr As TextStream
        Dim InputStr As String
        Dim FieldsStr(35) As String    '
        Dim StrCode As String
        Dim I As Integer
        I = 0
        InputStr = sr.ReadLine
'        Open fileStr For Input As #1
        
        While Not InputStr() = ""
            InputStr = sr.ReadLine
           
            If InputStr = "" Then
                GoTo 90
            End If
            FieldsStr = Split(InputStr, ",")
            '取得数组
           
            '  Try
            If I = 0 Then
              ......
                End If
            End If            '插入条码信息        
       .......
     
90:
        MsgBox ("记录导入成功！")

Answer 1

FieldsStr = Split(InputStr, ",")
这时错误了!

Answer 2

问题是报什么错，，，是不是容量不够大呀，，你不应该定义成Dim FieldsStr(35) As String   只能存35个，，如果不够怎么办，还是换成 Dim FieldsStr() As String     吧

Answer 3

什么年代了，还有goto90这种写法
建议你改正

Answer 4

晕，我也不想呀！
是不能把字符串类型给数组类型赋值错误!
FieldsStr = Split(InputStr, ",")这里写错误了FieldsStr是数组类型的,
InputStr这个是字符串类型的

Answer 5

FieldsStr() = StrConv(InputStr, vbProperCase)
像这个FieldsStr数组类型的，InputStr字符的
会出现类型不匹配的错误

Answer 6

Dim FieldsStr() As String     '改这一句
FieldsStr = Split(InputStr, ",")

Answer 7

支持这样修改：
Dim FieldsStr(35) As String  → Dim FieldsStr() As String

Answer 8

Dim FieldsStr(35) As String  → Dim FieldsStr() As String这是这里的错

Answer 9

Dim FieldsStr(35) As String  → Dim FieldsStr() As String
不是这里的错
Dim FieldsStr() As String     '改这一句
FieldsStr = Split(InputStr, ",")
这是怎么改呀!还不是一样没改!