تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
استفسار عن حل لمشكلة devexpress gridcontrol
#1
Exclamation 
عملت Gridcontrol 
بدخلها بيانات من جدول الشركات حددت انه يظهر اسم الشركة ورقم الملف بتعها وضفت جنبها زرار للتعديل 
بالشكل ده 
https://i.ibb.co/BP54frC/5444.png

كونت بستخدم كود في DataGridView عند الضغظ على سطر يتم ملء مجموعه تكست بوكس بيانات من القاعده بناء على رقم الملف لشركة  
PHP كود :
Private Sub DataGridView1_Click(sender As ObjectAs EventArgsHandles DataGridView1.Click
        If DataGridView1
(3DataGridView1.CurrentRow.Index).Selected True Then
            EditCompany
.SHOW_DET(DataGridView1.CurrentRow.Cells(0).Value)
 
           Me.Close()
 
       End If

 
   End Sub 
PHP كود :
Sub SHOW_DET(ID1_)
 
       Try
            Dim DT 
As New DataTable
            Dim DA 
As New SqlClient.SqlDataAdapter("SELECT * FROM Tab_Company WHERE EmID = '" ID1_ "' "SqlConn)
 
           DA.Fill(DT)
 
           If DT.Rows.Count 0 Then
                MessageBox
.Show("5515151d""User"MessageBoxButtons.OKMessageBoxIcon.Information)
 
           Else
                Dim SHOW_ 
As Integer BindingContext(DT).Position
                EmID
.Text DT.Rows(SHOW_).Item("EmID")
 
               CompanyNAme.Text DT.Rows(SHOW_).Item("CompanyName")
 
               CompanyOwner.Text DT.Rows(SHOW_).Item("CompanyOwner")
 
               CompActivity.Text DT.Rows(SHOW_).Item("CompActivity")
 
               Companyadrs.Text DT.Rows(SHOW_).Item("Companyadrs")
 
               Comp_Capital.Text DT.Rows(SHOW_).Item("Comp_Capital")
 
               Commericalrecord.Text DT.Rows(SHOW_).Item("Commericalrecord")
 
               CommericalPlace.Text DT.Rows(SHOW_).Item("CommericalPlace")
 
               TaxFileId.Text DT.Rows(SHOW_).Item("TaxFileId")
 
               TaxAgency.Text DT.Rows(SHOW_).Item("TaxAgency")
 
               CompanyExec.Text DT.Rows(SHOW_).Item("CompanyExec")
 
               Companytel.Text DT.Rows(SHOW_).Item("Companytel")
 
               Companytel2.Text DT.Rows(SHOW_).Item("Companytel2")
 
               Companytel3.Text DT.Rows(SHOW_).Item("Companytel3")
 
               TaxDate.Text DT.Rows(SHOW_).Item("TaxDate")
 
               GehaComp.SelectedValue DT.Rows(SHOW_).Item("GehaComp")
 
               GehaType.SelectedValue DT.Rows(SHOW_).Item("GehaType")
 
               CompState.SelectedValue DT.Rows(SHOW_).Item("CompState")
 
               CompLaw.SelectedValue DT.Rows(SHOW_).Item("CompLaw")
 
           End If
 
       Catch ex As Exception

        End 
Try
 
   End Sub 


المشكلة عندي انه في gridcontrol  
هذا الكود لا يعمل معاها 
PHP كود :
Private Sub DataGridView1_Click(sender As ObjectAs EventArgsHandles DataGridView1.Click
        If DataGridView1
(3DataGridView1.CurrentRow.Index).Selected True Then
            Emdad_EditCompany
.SHOW_DET(DataGridView1.CurrentRow.Cells(0).Value)
 
           Me.Close()
 
       End If

 
   End Sub 

ارجو المساعدة
الرد
تم الشكر بواسطة:
#2
شكرا وجدت حل
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم