Here ya go !
---
Dim OBC, tempVal As Single
..
..
If Single.TryParse(currentRow.Value, tempVal) Then
OBC += tempVal
End If
..
..
LabelItem3.Text = OBC.ToString("#,##")
---
On Jan 27, 9:11 pm, K <[email protected]> wrote:
> Hi all, The below code displays result in 1,234.00 number format. So
> if I have amount 2,000.49 in cell one and 2,000.01 in cell two of
> datagridview the result should be 4,000.50 but below code displays it
> 4,001.00. How can I get the the decimals? Also if I want result to
> be 4,001 instead of 4,001.00 in other words amount without decimals
> then how can I achive it in below code. Please can any friend tell me
> that what amendment in below code can give me the result i am looking
> for.
>
> Private Sub DataGridViewX2_SelectionChanged(ByVal sender As Object,
> ByVal e As System.EventArgs) Handles DataGridViewX2.SelectionChanged
> Dim OBC As Integer = 0
> Dim currentRow As DataGridViewCell
> For Each currentRow In DataGridViewX2.SelectedCells
> If currentRow.ColumnIndex = 6 And
> DataGridViewX2.SelectedCells.Count > 1 Then
> OBC += CInt(currentRow.Value)
> ElseIf currentRow.ColumnIndex = 9 And
> DataGridViewX2.SelectedCells.Count > 1 Then
> OBC += CInt(currentRow.Value)
> Else
> OBC += 0
> End If
> Next
> LabelItem2.Visible = True
> LabelItem3.Visible = True
> If Microsoft.VisualBasic.Left(OBC.ToString, 1) = "-" Then
> LabelItem3.Text = OBC.ToString("N")
> LabelItem3.ForeColor = Color.Red
> Else
> LabelItem3.Text = OBC.ToString("N")
> LabelItem3.ForeColor = Color.Black
> End If
> End Sub
--
You received this message because you are subscribed to the Google
Groups "DotNetDevelopment, VB.NET, C# .NET, ADO.NET, ASP.NET, XML, XML
Web Services,.NET Remoting" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/dotnetdevelopment?hl=en?hl=en
or visit the group website at http://megasolutions.net
