[بيسك لكل العرب]

(10-06-18, 04:01 AM)mrnooo2000 كتب : هو نفس الكود الى ارسلته من البداية و لكن مع بعض الضبط


1- أضف هذا السطر أعلى كود النموذج

كود :

Imports System.Reflection

2- أضف هذه الدالة 

كود :

   Public Shared Function CreateObjectInstance(ByVal objectName As String) As Object
       ' Creates and returns an instance of any object in the assembly by its type name.

       Dim obj As Object

       Try
           If objectName.LastIndexOf(".") = -1 Then
               'Appends the root namespace if not specified.
               objectName = [Assembly].GetEntryAssembly.GetName.Name & "." & objectName
           End If

           obj = [Assembly].GetEntryAssembly.CreateInstance(objectName)

       Catch ex As Exception
           obj = Nothing
       End Try
       Return obj

   End Function

3- ضع هذا الكود فى حدث ضغط الزر مع ملاحظة تعديل اسم الداتا جريد لما لديك

كود :

       Dim Frm As Form = DirectCast(CreateObjectInstance(TextBox1.Text), Form)
       dt.Clear()
       da = New OleDbDataAdapter("Select * from AA where AA >1 ", Conn)
       da.Fill(dt)
       
       DirectCast(frm.Controls("DataGridView1"), DataGridView).DataSource = dt
       frm.ShowDialog()

السلام عليكم 
أخي لم بنجح الكود هل يمكنك تطبيقه على مثال إذا تكرمت واسف على الإطالة وشكرا