vbtab проблемы в делах до цикла в vb.net

Question

Эй, ребята, я имею проблему в моем приложении с vbtab может кто-нибудь знают, что это проблема

это мой код:

 txtshowpayments.Text = "Student's ID" & vbTab & "Student's Name" & vbTab & "Total Payment" & vbCrLf 

    Class217FileReader = New StreamReader("class217.txt") 
    PaymentsFileReader = New StreamReader("payments.txt") 
    Do Until PaymentsFileReader.EndOfStream 
     Do Until Class217FileReader.EndOfStream 
      Dim aline As String = Class217FileReader.ReadLine 
      Dim aline1 As String = PaymentsFileReader.ReadLine 
      Dim fields() As String = aline.Split(","c) 
      Dim fields1() As String = aline1.Split(","c) 

      Dim StudentId As Integer = Convert.ToInt32(fields1(0)) 
      Dim studentId1 As Integer = Convert.ToInt32(fields(0)) 
      Dim StudentName As String = fields(1) & " " & fields(2) 
      Dim totalpayment As Integer = Convert.ToInt32(fields1(1)) + Convert.ToInt32(fields1(2)) + Convert.ToInt32(fields1(3)) 

      If ShouldDisplay(StudentId, studentId1) Then 
       txtshowpayments.Text &= StudentId & vbTab & StudentName & vbTab & String.Format("{0:C}", totalpayment) & vbCrLf 
      End If 
     Loop 
    Loop 

Спасибо за помощь

Answer 1

Используйте Формат строки:

Dim formatString As String = "{0,-12}  {1,-14}  {2}" & vbCrLf 

txtshowpayments.Text = String.Format(formatString, "Student's ID", "Student's Name", "Total Payment") 
formatString = String.Replace("{2}", "{2:C}") 

Class217FileReader = New StreamReader("class217.txt") 
PaymentsFileReader = New StreamReader("payments.txt") 
Do Until PaymentsFileReader.EndOfStream 
    Do Until Class217FileReader.EndOfStream 
     Dim aline As String = Class217FileReader.ReadLine 
     Dim aline1 As String = PaymentsFileReader.ReadLine 
     Dim fields() As String = aline.Split(","c) 
     Dim fields1() As String = aline1.Split(","c) 

     Dim StudentId As Integer = Convert.ToInt32(fields1(0)) 
     Dim studentId1 As Integer = Convert.ToInt32(fields(0)) 
     Dim StudentName As String = fields(1) & " " & fields(2) 
     Dim totalpayment As Integer = Convert.ToInt32(fields1(1)) + Convert.ToInt32(fields1(2)) + Convert.ToInt32(fields1(3)) 

     If ShouldDisplay(StudentId, studentId1) Then 
      txtshowpayments.Text &= String.Format(formatString, StudentId, StudentName, totalpayment) 
     End If 
    Loop 
Loop 

Еще лучше ... загляните в элемент управления DataGrid.