"Count cannot be less than zero."
i get this error and i can not resolve please if somebody can help me!
Dim encoding__1 As Encoding = Encoding.GetEncoding("windows-1251")
If File.Exists(Me.TextFile) Then
File.Delete(Me.TextFile)
End If
Dim streamWriter As New StreamWriter(Me.TextFile, False, encoding__1)
streamWriter.Write(" 01" & vbTab & "1" & vbTab & vbTab & "0" & vbTab & vbCr & vbLf)
Dim num1 As Integer = 0
Dim enumerator As List(Of Article).Enumerator
Try
enumerator = Me.Stavki.GetEnumerator()
While enumerator.MoveNext()
Dim current As Article = enumerator.Current
Strings.Chr(CInt(current.VAT))
Dim num2 As Short = CShort(1)
Select Case current.VAT
Case VATgroup.А
num2 = CShort(1)
Exit Select
Case VATgroup.Б
num2 = CShort(2)
Exit Select
Case VATgroup.В
num2 = CShort(3)
Exit Select
Case VATgroup.Г
num2 = CShort(4)
Exit Select
End Select
If num1 Mod 2 = 0 Then
streamWriter.Write(String.Format("#1{0}" & vbTab & "{3}" & vbTab & "{1}" & vbTab & "{2}" & vbTab & "0" & vbTab & vbTab & vbTab, DirectCast(current.Name.Remove(20, current.Name.Length - 20), Object), DirectCast(Me.FormatNumber(current.Price, 2), Object), DirectCast(Me.FormatNumber(current.Amount, 3), Object), DirectCast(num2, Object)) + vbCr & vbLf) ' ERROR IS HERE
Else
streamWriter.Write(String.Format(" 1{0}" & vbTab & "{3}" & vbTab & "{1}" & vbTab & "{2}" & vbTab & "0" & vbTab & vbTab & vbTab, DirectCast(current.Name.Remove(20, current.Name.Length - 20), Object), DirectCast(Me.FormatNumber(current.Price, 2), Object), DirectCast(Me.FormatNumber(current.Amount, 3), Object), DirectCast(num2, Object)) + vbCr & vbLf)
End If
num1 += 1
End While
Finally
enumerator.Dispose()
End Try
streamWriter.Write(String.Format("&5{0}" & vbTab & vbTab, DirectCast(PaidMode, Object)) + vbCr & vbLf)
streamWriter.Write("%8")
streamWriter.Flush()
streamWriter.Close()