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

[wyy1001]

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 ("记录导入成功！")

[wyy1001]

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

[flyingZFX]

问题是报什么错，，，

是不是容量不够大呀，，

你不应该定义成Dim FieldsStr(35) As String 只能存35个，，如果不够怎么办，

还是换成 Dim FieldsStr() As String 吧

[guxizhw]

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

[wyy1001]

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

FieldsStr是数组类型的,
InputStr这个是字符串类型的

[wyy1001]

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

[myhgyp]

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

[VBDN]

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

[wyy1001]

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

[wyy1001]

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


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

[wyy1001]

解决了