البحث عن طريقة ريكرسف

إذا لم يمكن هناك جدود فلن تحتاج إلى دالة ريكرسف.

تمنيت انك توضح فكرتك كيف مايحتاج ؟؟

لكن ساشرح مافعلت ولم يضبط لانه يطلع ايرور

هنا لدي بروسيجر ارسلت اسم الاب و ارسلت جدول اللي يخزن بيانات وارسلت رقم رقم هذا للجداول اللي راح اكونها في جدول اللي راسلته

Private Sub test(ByVal n As Integer, ByRef Dat As DataTable, ByVal Z As Integer)


		sr = "SELECT G_NO,goal.Description,Goal.time_exe ,Goal.Percentage_exe ,goal.link_to " _
			  & "  where Link_to ='" & Integer.Parse(n) & "' and Make_G <>'" & CByte(1) & "' "


		Dim _adpt1 As New System.Data.SqlClient.SqlDataAdapter(sr, ocon)
		Dim DataS As New DataSet
		DataS.Tables.Add(Z)
		_adpt1.Fill(DataS.Tables(Z))


		For c = 0 To DataS.Tables(Z).Rows.Count - 1
			dROW = Dat.NewRow()

			dROW.Item(0) = DataS.Tables(Z).Rows(c)(0)
			dROW.Item(1) = DataS.Tables(Z).Rows(c)(1)
			dROW.Item(2) = DataS.Tables(Z).Rows(c)(2)
			dROW.Item(3) = DataS.Tables(Z).Rows(c)(3)
			dROW.Item(4) = DataS.Tables(Z).Rows(c)(4)
			Dat.Rows.Add(dROW)
			test(Integer.Parse(DataS.Tables(Z).Rows(c)(0)), Dat, Z = Z + 1)
		Next






	End Sub

وفي البرنامج بنيت جدول اللي بخزن فيه بيانات ثم استدعيت بروسيجر

وبعد الانتهاء من تعبهئه وضعتها في داتا قريد فيو لعرضها لليوزر

 Dim DataT As New DataTable(" MyDataTable ")

		Dim dc1 As New DataColumn
		Dim dc2 As New DataColumn
		Dim dc3 As New DataColumn
		Dim dc4 As New DataColumn
		Dim dc5 As New DataColumn


		dc1.ColumnName = " GOAL NO "
		dc1.DataType = System.Type.GetType("System.String")
		dc1.DefaultValue = ""
		dc2.ColumnName = " NAME OF GOAL "
		dc2.DataType = System.Type.GetType("System.String")
		dc2.DefaultValue = ""
		dc3.ColumnName = " TIME OF EXECUTION "
		dc3.DataType = System.Type.GetType("System.String")
		dc3.DefaultValue = ""
		dc4.ColumnName = " WORK PERCENTAGE "
		dc4.DataType = System.Type.GetType("System.String")
		dc4.DefaultValue = ""
		dc5.ColumnName = " TYPE OF GOAL  "
		dc5.DataType = System.Type.GetType("System.String")
		dc5.DefaultValue = ""


		DataT.Columns.Add(dc1)
		DataT.Columns.Add(dc2)
		DataT.Columns.Add(dc3)
		DataT.Columns.Add(dc4)
		DataT.Columns.Add(dc5)




		test(G_no.Text, DataT, 0)
		DataGridView1.DataSource = DataT

تقولون ماهي مشكله المشكله انه يرفض عملية تكرار ويخرج مسج

An unhandled exception of type 'System.Data.SqlClient.SqlException' occurred in System.Data.dll

Additional information: The column prefix 'goal' does not match with a table name or alias name used in the query.

The column prefix 'Goal' does not match with a table name or alias name used in the query.

The column prefix 'Goal' does not match with a table name or alias name used in the query.

The column prefix 'goal' does not match with a table name or alias name used in the query.

ويقف في داتا فل الموجوده في بروسيجر

_

	 _adpt1.Fill(DataS.Tables(Z))

مشكلتي ما اعرف كيف اسويها

يعني جدول عندي مثلا اقول

محمد صفاته كذا وابوه خالد

فهد صفاته كذا ابوه عبدالله

يعني الارتباط بس بالاب ماعندي ارتباط مع الجد كيف يمكنني عمل جدول يخرج سلاله جد

لو اقول منير

يطلع اولاد منير واحفاده و ...وووو الى ان يقف حسب بيانات المسجله

اتمنى قدرت اوضح فكرتي ووصلها لكم صح

دمتم بخير

ورزقكم الرب فردوسه

للرفع