my code below, i want my text file to look like this

112321232, name, 02/23/2011

123244445, name2, 02/24/2011

 

not like this

112321232, name, 02/23/2011

 

 

 

123123212, name1, 02/24/2011

 

why is it doing this?

 

Also how can i get rid of this in when i publish to text file, i hate this

Title :
Subject :
Author :
Manager :
Company :
Creator :
Copyright :
Category :
Keywords :
Comments :
Created : 06/14/2011 08:00:57
Modified : 06/14/2011 08:00:57
==================================================  this should be not include in my text file, i want none of this.

 

 

theRow = theTable.AddRow()

 

 

 

For Each c As Infragistics.WebUI.UltraWebGrid.UltraGridColumn In Me

.ulwbgvdTEXTCHECK.Columns

theRowCell = theRow.AddCell()

 

 

Dim strKey As

String

theRowText = theRowCell.AddText()

 

 

Dim strDate As

Date

strKey = r.Cells.FromKey(c.Key).Key.ToString

 

 

If strKey = "ACCOUNT"

Then

 

 

If (r.Cells.FromKey(c.Key).Value) = Nothing

Then

strAcct =

 

", "

 

 

Else

strAcct = r.Cells.FromKey(c.Key).Value.ToString() +

 

", "

 

 

End

If

 

 

End

If

 

 

If strKey = "NAME"

Then

 

 

If (r.Cells.FromKey(c.Key).Value) = Nothing

Then

strName =

 

", "

 

 

Else

strName = r.Cells.FromKey(c.Key).Value.ToString() +

 

", "

 

 

End

If

 

 

End

If

 

 

 

If strKey = "UNITDESC"

Then

 

 

If (r.Cells.FromKey(c.Key).Value) = Nothing

Then

strUnit =

 

", "

 

 

Else

strUnit = r.Cells.FromKey(c.Key).Value.ToString() +

 

", "

 

 

End

If

 

 

End

If

 

 

 

If strKey = "AP_DATE"

Then

 

 

 

If (r.Cells.FromKey(c.Key).Value) = Nothing

Then

strAPDATE =

 

", "

 

 

Else

strAPDATE = r.Cells.FromKey(c.Key).Value.ToString()

strDate = strAPDATE

strAPDATE = strDate.ToString(

 

"d"

, Globalization.DateTimeFormatInfo.InvariantInfo)

strAPDATE = strAPDATE +

 

", "

 

 

End

If

 

 

End

If

 

 

If strKey = "CREDIT1"

Then

 

 

If (r.Cells.FromKey(c.Key).Value) = Nothing

Then

strCREDIT =

 

", "

 

 

Else

strCREDIT = r.Cells.FromKey(c.Key).Value.ToString() +

 

", "

 

 

End

If

 

 

End

If

 

 

 

If strKey = "RECEIPT_NUM"

Then

 

 

If (r.Cells.FromKey(c.Key).Value) = Nothing

Then

strRECEPTNUM =

 

", "

 

 

Else

strRECEPTNUM = r.Cells.FromKey(c.Key).Value.ToString() +

 

", "

 

 

End

If

 

 

End

If

 

 

 

If strKey = "BATCHNO"

Then

 

 

If (r.Cells.FromKey(c.Key).Value) = Nothing

Then

strBATCH_NUM =

 

""

 

 

Else

strBATCH_NUM = r.Cells.FromKey(c.Key).Value.ToString().Trim

 

 

End

If

 

 

End

If

 

 

 

Next

theRowText.AddContent(strAcct + strName + strUnit + strAPDATE + strCREDIT + strRECEPTNUM + strBATCH_NUM)

 

 

End

If

 

 

Next

 

 

End

If

 

 

End

If

 

 

Dim f_name As

String

 

f_name = myDocuments +

 

"Reports\checklog.txt"

 

 

'f_name = myDocuments + "Reports\checklog.xps"

PageFuncts.MessageAlert(

 

Me

, f_name)

Thanks,

RobKapSig