PDA

View Full Version : حرفه ای: تبدیل کد



sandra2010
سه شنبه 01 آذر 1390, 10:02 صبح
با سلام خدمت شما دوستان ارجمند می خوام بدونم این کد VB در سی شارپ چی میشه و ضمنا با سایت های تبدیل کد هم سر زدم و چیزی پیدا نکردم . لطفا کمک کنید خیلی گیرم:اشتباه::افسرده::ناراحت:


Private Sub CalDarsad()
Try
If DGV1.Item("cln_name", DGV1.CurrentRow.Index).Value <> "" Then
DGV1.Item("Cln_DarsadMon", DGV1.CurrentRow.Index).Value = Format(CDbl(DGV1.Item("cln_Money", DGV1.CurrentRow.Index).Value) * CDbl(DGV1.Item("Cln_Darsad", DGV1.CurrentRow.Index).Value) / 100, "###,###")
End If
Catch ex As Exception
DGV1.Item("Cln_Darsad", DGV1.CurrentRow.Index).Value = 0
DGV1.Item("Cln_DarsadMon", DGV1.CurrentRow.Index).Value = 0
End Try
End Sub