未处理的异常"System.IndexOutOfRangeException"

Question

Module Module1
'input vars declarations
Private DescriptionString As String
Private StockNumberString As String
Private WholesalePriceDecimal As Decimal
Private QuantityOHDecimal As Decimal
'CONSTANT VAR
Private Const PROFIT_PERCENT_DECIMAL As Decimal = 0.25
'calculated vars declarations
Private InvValueDecimal As Decimal 'this is WholesalePrice * QOH
Private PotentialProfit As Decimal 'this is InvValue * PROFIT_PERCENT
Private PotentialIncome As Decimal 'this is InvValue + PotentialProfit
'declares the record variable and associates file name
Private CurrentRecord()
Private FurnitureInventoryFile As New FileIO.TextFieldParser("FURNFILE.TXT")
'Main module is Level 1
Sub Main()
'L1 calls L2
Call Housekeeping()
Do While Not FurnitureInventoryFile.EndOfData
Call ProcessRecords()
Loop
Call EndOfJob()
End Sub
'L2 Housekeeping() calls L3 SetFileDelimiter() and L3 WriteHeadings()
Private Sub Housekeeping()
Call SetFileDelimiter()
Call WriteHeadings()
End Sub
'L2 ProcessRecords() calls L3 ReadFile(), L3 DetailCalculations() and L3 WriteDetailLine()
Private Sub ProcessRecords()
Call ReadFile()
Call DetailCalculations()
Call WriteDetailLine()
End Sub
'L2 EndOfJob() calls L3 SummaryOutput() and L3 CloseFile()
Private Sub EndOfJob()
Call SummaryOutput()
Call CloseFile()
End Sub
'L3, Called by Housekeeping(), Assigns filetype as delimited and assigns the delimiter as a comma
Private Sub SetFileDelimiter()
FurnitureInventoryFile.TextFieldType = FileIO.FieldType.Delimited
FurnitureInventoryFile.SetDelimiters(",")
End Sub
'L3, Called by Housekeeping(), Writes the report heading and column heading lines
Private Sub WriteHeadings()
'Report Headings
Console.WriteLine(Space(17) & "Inventory Report for Quality Furniture Store")
Console.WriteLine(Space(28) & "Christian VanderHorst")
'2 Blank lines
Console.WriteLine()
Console.WriteLine()
'Column Headings
Console.WriteLine(Space(22) & "Stock" & Space(8) & "Wholesale" & Space(2) & "Inventory" & Space(2) & "Potential" & Space(3) & "Potential")
Console.WriteLine(Space(1) & "Description" & Space(10) & "Number" & Space(2) & "QOH" & Space(6) & "Price" & Space(6) & "Value" & Space(5) & "Profit" & Space(6) & "Income")
End Sub
'L3, Called by ProcessRecords(), Reads the file and parses the current record into its vars
Private Sub ReadFile()
CurrentRecord = FurnitureInventoryFile.ReadFields() 'reads the record
StockNumberString = CurrentRecord(0)
DescriptionString = CurrentRecord(1)
WholesalePriceDecimal = CurrentRecord(2)
QuantityOHDecimal = CurrentRecord(3)
End Sub
'L3, Calculates InvValueDecimal, PotentialProfitDecimal and PotentialIncomeDecimal
Private Sub DetailCalculations()
InvValueDecimal = WholesalePriceDecimal * QuantityOHDecimal
PotentialProfit = InvValueDecimal * PROFIT_PERCENT_DECIMAL
PotentialIncome = InvValueDecimal + PotentialProfit
End Sub
'L3, Writes the detail lines
Private Sub WriteDetailLine()
Console.WriteLine(Space(1) & DescriptionString.PadRight(19) &
Space(2) & StockNumberString &
Space(4) & QuantityOHDecimal.ToString("N0").PadLeft(2) &
Space(3) & WholesalePriceDecimal.ToString("N").PadLeft(8) &
Space(2) & InvValueDecimal.ToString("N").PadLeft(9) &
Space(5) & PotentialProfit.ToString("N").PadLeft(5) &
Space(2) & PotentialIncome.ToString("C").PadLeft(10))
End Sub
'L3, Writes the summary line and pauses program to wait for enter keystroke
Private Sub SummaryOutput()
'Blank space to move the summary line down
Console.WriteLine()
Console.WriteLine()
'the summary line
Console.WriteLine(Space(24) & "End of Furniture Profit Report")
'prompt to tell the user how to close the report
Console.WriteLine()
Console.WriteLine()
Console.WriteLine("Press ENTER to close the report")
Console.ReadLine()
End Sub
'L3, Closes the input file
Private Sub CloseFile()
FurnitureInventoryFile.Close()
End Sub

端模块

这是我创建的完整代码。这一切都很好，然而，在输出3条细节线后，它出现了

My_Name.InvReportFurniture.exe 中发生类型为"System.IndexOutOfRangeException"的未处理异常

附加信息：索引超出了数组的界限。

并指定语句

QuantityOHDecimal=当前记录(3)

作为源

我似乎不知道是什么原因造成的。如果我在每一个细节行之间写一个停顿，那么在第三个细节行之后抛出异常的方式也是一样的。

这是数据文件。

ET010,3抽屉端桌，169.00，10
ET020,4抽屉端桌子，299.95，05
ET030,8抽屉端餐桌，148.99，12
ST010，堆叠桌325.50，20
BC020,4书架书柜，130.99，24
BC030,5书架书箱，199.95，08
FC040,6书架书盒，270.99，15
LC010，躺椅，198.89，20
VC010，翼椅，320.55，05
LC011，Pleather躺椅，1050.00，02
FC010，织物躺椅，755.00，04
VC015，皮革躺椅，500.01，10
BS010，书座，235.80，05
LS010，灯座，135.23，15
PS010，电话座，99.95，19
TS010，电视座，270.90，08
SS010，立体声座，675.00，15
TS015，Tiffany座，1115.35，02

Answer 1

这是因为带有ST010的行缺少逗号字段分隔符。这一行中只有三个字段，因此字段索引3(第四个字段)不存在。