ช่วยดูให้หน่อยนะคะ ว่าหนูวนลูปอะไรผิดไป หนูกำลังจะวนลูปเอาข้อมูลจาก datatable ไปเขียนลงใน textfile โดยใช้ StreamWriter ตอนนี้ข้อมูลมันออกมาแบบผิด

 For Each dr As DataRow In dt1.Rows
    Dim num As Object = 1
    Dim StrWer As StreamWriter
    Dim FullPath As String = "C:\" & ComboBox1.SelectedValue & "_" & Date.Now.ToString("yyyy-mm-dd", USCulture) & ".txt"
      StrWer = New StreamWriter(FullPath)
      For k As Integer = 0 To dt1.Rows.Count - 1 Step +1
       Try
       StrWer.Write(num & "|" & dr("taxno").ToString.Trim & "|" & "" & "|" & dr("name2").ToString.Trim & "|" & _
                    dr("buildname").ToString.Trim & "|" & dr("room").ToString.Trim & "|" & dr("floor").ToString.Trim & "|" & _
                    dr("addrno").ToString.Trim & "|" & dr("villno").ToString.Trim & "|" & dr("lanename").ToString.Trim & "|" & _
                    dr("road").ToString.Trim & "|" & dr("precinct").ToString.Trim & "|" & dr("bounds").ToString.Trim & "|" & _
                    dr("province").ToString.Trim & "|" & dr("zipcode").ToString.Trim & "|" & dr("paydate").ToString.Trim & "|" & _
                    dr("shortdesc").ToString.Trim & "|" & dr("wtaxrate").ToString.Trim & "|" & dr("baseoftax").ToString.Trim & "|" & _
                    dr("wtaxamount").ToString.Trim & "|" & "1")
                    StrWer.WriteLine()
                    num = num + 1
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try
            Next
            StrWer.Close()
        Next