13-03-20, 10:21 PM
عملت Gridcontrol
بدخلها بيانات من جدول الشركات حددت انه يظهر اسم الشركة ورقم الملف بتعها وضفت جنبها زرار للتعديل
بالشكل ده
https://i.ibb.co/BP54frC/5444.png
كونت بستخدم كود في DataGridView عند الضغظ على سطر يتم ملء مجموعه تكست بوكس بيانات من القاعده بناء على رقم الملف لشركة
المشكلة عندي انه في gridcontrol
هذا الكود لا يعمل معاها
ارجو المساعدة
بدخلها بيانات من جدول الشركات حددت انه يظهر اسم الشركة ورقم الملف بتعها وضفت جنبها زرار للتعديل
بالشكل ده
https://i.ibb.co/BP54frC/5444.png
كونت بستخدم كود في DataGridView عند الضغظ على سطر يتم ملء مجموعه تكست بوكس بيانات من القاعده بناء على رقم الملف لشركة
PHP كود :
Private Sub DataGridView1_Click(sender As Object, e As EventArgs) Handles DataGridView1.Click
If DataGridView1(3, DataGridView1.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.OK, MessageBoxIcon.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 Object, e As EventArgs) Handles DataGridView1.Click
If DataGridView1(3, DataGridView1.CurrentRow.Index).Selected = True Then
Emdad_EditCompany.SHOW_DET(DataGridView1.CurrentRow.Cells(0).Value)
Me.Close()
End If
End Sub
ارجو المساعدة