PDA

View Full Version : تبدیل کد



f.rahdar
چهارشنبه 13 دی 1391, 21:40 عصر
سلام
دوستان ممنون میشم اگه کسی بتونه در تبدیل این کد به #Cکمکم کنه
Private Sub findAndAdd(ByVal tn As TreeNode, ByVal dv1 As DataView)
dv1.RowFilter = ""
dv1.RowFilter =
"Srl_Parent = " & tn.Srl.ToString
Application.DoEvents()
For i As Integer = 0 To dv1.Count - 1
Dim tn1 As TreeNode
Try
tn1 =
New TreeNode(dv1.Item(i)("Name").ToString + " - " + dv1.Item(i)("Code").ToString) Catch ex As Exception tn1 =
New TreeNode(dv1.Item(i)("Name").ToString) End Try tn1.Srl = dv1.Item(i)(
"Srl").ToString tn1.Srl_Parent = dv1.Item(i)(
"Srl_Parent").ToString tn1.IsRootNode =
False tn.Nodes.Add(tn1)
Me.findAndAdd(tn1, dv1) dv1.RowFilter =
"Srl_Parent = " & tn.Srl.ToString Next End Sub

danialafshari
پنج شنبه 14 دی 1391, 02:15 صبح
سلام دوست عزیز
لطفا کد رو مستقیما از محیط برنامه نویسی در اینجا کپی کنید و در تگ C# تاپیک قرار بدید
و برای تبدیل هم از سایت زیر استفاده کنید:
http://www.carlosag.net/tools/codetranslator/

موفق باشید

f.rahdar
پنج شنبه 14 دی 1391, 22:16 عصر
دوست عزیز خیلی ممنون .سایتش عالیییییییییییییییی بود

danialafshari
پنج شنبه 14 دی 1391, 22:43 عصر
دوست عزیز خیلی ممنون .سایتش عالیییییییییییییییی بود

خواهش می کنم دوست عزیز