Column Format

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Thank for reply,
currently i am using below code to manual convert last column to decimal point, i found that is to troublesome, just to find out any other quick way to do it.
i am using classic Visual Basic 6.0

my code
With DataLst
.Columns(.Columns.Count - 1).HeaderAlignment = xtpAlignmentRight
.Columns(.Columns.Count - 1).Alignment = xtpAlignmentRight

For k = .Columns.Count - 1 To .Columns.Count - 1
    For i = 0 To .Rows.Count - 1
            xx = Format(.Records(i).Item(k).Caption, "#0.00")
           .Records(i).Item(k).Caption = xx
    Next i
Next k

End With

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
yfphang Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 24 December 2011 Status: Offline Points: 5	Post Options Post Reply Quote yfphang Report Post Thanks(0) Quote Reply Topic: Column Format Posted: 06 January 2012 at 12:34am
	Thank for reply, currently i am using below code to manual convert last column to decimal point, i found that is to troublesome, just to find out any other quick way to do it. i am using classic Visual Basic 6.0 my code With DataLst .Columns(.Columns.Count - 1).HeaderAlignment = xtpAlignmentRight .Columns(.Columns.Count - 1).Alignment = xtpAlignmentRight For k = .Columns.Count - 1 To .Columns.Count - 1 For i = 0 To .Rows.Count - 1 xx = Format(.Records(i).Item(k).Caption, "#0.00") .Records(i).Item(k).Caption = xx Next i Next k End With

Xander75 Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 26 April 2007 Status: Offline Points: 353	Post Options Post Reply Quote Xander75 Report Post Thanks(0) Quote Reply Posted: 04 January 2012 at 5:41am
	Hi, Try formatting the value using "FormatNumber(value, 2)", this is Visual Basic 6 code. Please add a signature saying what language(s) you are using as it will help with responses.
	Product: Xtreme SuitePro (ActiveX) v15.3.1 Platform: Windows 7 64-bit (SP1) Professional Edition Languages: C#.Net using Visual Studio 2012 & Visual Basic 6.0 (SP6)

yfphang Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 24 December 2011 Status: Offline Points: 5	Post Options Post Reply Quote yfphang Report Post Thanks(0) Quote Reply Posted: 24 December 2011 at 6:00am
	Hi, How to change all to column with format "0.00" Thank.