السّلام عليكم و رحمة الله و بركاته
بارك الله فيك و لك و جزاك خير الجزاء أخي الغالي
عن طريق الاستعلام فكرة رائعة بكل صدق
تؤدّي و تفي بالغرض طولاً و عرضًا
و عملت شيء شبيه بهذا و مشى الحال و الحمد لله
كود :
Private Sub RepositoryItemButtonEdit1_Click(sender As Object, e As EventArgs) Handles RepositoryItemButtonEdit1.Click
If GridView1.RowCount = Nothing Then Return
'Dim selectedRows() As Integer = GridView1.GetSelectedRows()
'For Each rowHandle As Integer In selectedRows
'If rowHandle >= 0 Then
'FrmRetourFactureVente.GridControl1.DataSource = Nothing
'FrmRetourFactureVente.GroupControl1.Text = GridView1.GetRowCellValue(GridView1.FocusedRowHandle, "RETOUR_VENTE_Invoice_Code").ToString & " " & ": تفاصيل الفاتورة رقم"
'FrmRetourFactureVente.TextBox2.Text = GridView1.GetRowCellValue(GridView1.FocusedRowHandle, "INVOICES_VENTE_Code").ToString
'FrmRetourFactureVente.TextBox3.Text = GridView1.GetRowCellValue(GridView1.FocusedRowHandle, "INVOICES_VENTE_Type").ToString
'FrmRetourFactureVente.TextBox4.Text = GridView1.GetRowCellValue(GridView1.FocusedRowHandle, "INVOICES_VENTE_Date").ToString
'FrmRetourFactureVente.TextBox5.Text = GridView1.GetRowCellValue(GridView1.FocusedRowHandle, "INVOICES_VENTE_Customers_Name").ToString
'FrmRetourFactureVente.TextBox6.Text = GridView1.GetRowCellValue(GridView1.FocusedRowHandle, "INVOICES_VENTE_Total").ToString
'FrmRetourFactureVente.TextBox7.Text = GridView1.GetRowCellValue(GridView1.FocusedRowHandle, "INVOICES_VENTE_Total_Arabic").ToString
'Global_Fill_GridView_GridControl(FrmRetourFactureVente.GridControl2, "SELECT * From TBL_INVOICES_VENTE_DETAILS Where INVOICES_VENTE_DETAILS_Code = '" & GridView1.GetRowCellValue(GridView1.FocusedRowHandle, "INVOICES_VENTE_Code").ToString & "'")
'End If
'Next rowHandle
FrmRetourFactureVente.GridControl1.DataSource = Nothing
FrmRetourFactureVente.GridControl2.DataSource = Nothing
Dim DT As New DataTable
Dim DA As New OleDb.OleDbDataAdapter("SELECT * From TBL_RETOUR_VENTE Where RETOUR_VENTE_Invoice_Code = '" & Me.TextBox1.Text & "' ", Conne_2020)
DA.Fill(DT)
If DT.Rows.Count = 0 Then
MessageBox.Show("يرجى التحقق من رقم الفاتورة", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
Dim DR = DT.Rows(0)
FrmRetourFactureVente.TextBox2.Text = DR!RETOUR_VENTE_Invoice_Code
FrmRetourFactureVente.TextBox3.Text = DR!RETOUR_VENTE_Invoice_Type
FrmRetourFactureVente.TextBox4.Text = DR!RETOUR_VENTE_Invoice_Date
FrmRetourFactureVente.TextBox5.Text = DR!RETOUR_VENTE_Customers_Name
FrmRetourFactureVente.TextBox6.Text = DR!RETOUR_VENTE_Total
FrmRetourFactureVente.TextBox7.Text = DR!RETOUR_VENTE_Arabic
FrmRetourFactureVente.TextBox1.Text = DR!RETOUR_VENTE_Users
Global_Fill_GridView_GridControl(FrmRetourFactureVente.GridControl2, "SELECT * From TBL_INVOICES_VENTE_DETAILS Where INVOICES_VENTE_DETAILS_Code = '" & FrmRetourFactureVente.TextBox2.Text & "'")
Me.Close()
End If
End Sub
زادك الله من علمه و فضله و أكرمك بالدارين إن شاء الله
صدقني أخي و الله أعلم بذلك
لماذا أردت فكرة تحويل الكود بمشاركتي الأولى
فقط للتعلم واستغلاله فيما بعد في ملء جريد كنترول الفاتورة سواء المبيعات أو المشتريات عن طريق الباركود
كهذا الكود مثلا الذي يتطلب إدخال سجلات للجريد كنترول حسب خلايا معينة ..
كود :
Private Sub TxtInvoicesAchatBarCode_Leave(sender As Object, e As EventArgs) Handles TxtInvoicesAchatBarCode.Leave
Dim Bar_Items As Integer
If Me.TxtInvoicesAchatBarCode.Text <> Nothing Then
Dim DT As New DataTable
Dim DA As New OleDb.OleDbDataAdapter("SELECT * FROM TBL_ITEMS Where ITEMS_Barcode Like '" & Me.TxtInvoicesAchatBarCode.Text & "'", Conne_2019)
DA.Fill(DT)
If DT.Rows.Count > 0 Then
' التحقق من رقم كود الصنف
For I = 0 To DataGridView1.Rows.Count - 1
If DataGridView1.Rows(I).Cells(1).Value = DT.Rows(0).Item("ITEMS_Code") Then
DataGridView1.Rows(I).Cells(5).Value = DataGridView1.Rows(I).Cells(5).Value + 1
Calculateur_Divers_Operations()
Me.TxtInvoicesAchatBarCode.ResetText()
Exit Sub
End If
Next
'اضافة سجل للداتا جريد
DataGridView1.Rows.Add()
Bar_Items = DataGridView1.Rows.Count - 1
DataGridView1(1, Bar_Items).Value = DT.Rows(0).Item("ITEMS_Code")
DataGridView1(2, Bar_Items).Value = DT.Rows(0).Item("ITEMS_Name")
DataGridView1(3, Bar_Items).Value = DT.Rows(0).Item("ITEMS_Unite")
DataGridView1(4, Bar_Items).Value = DT.Rows(0).Item("ITEMS_Prix_Vente")
DataGridView1(8, Bar_Items).Value = DT.Rows(0).Item("ITEMS_Stock")
DataGridView1(5, Bar_Items).Value = 1
Calculateur_Divers_Operations()
End If
End If
Me.TxtInvoicesAchatBarCode.ResetText()
Calculateur_Divers_Operations()
End Sub
بكل صدق .. مع أدوات الديف إكسبرس تقريبا معظم الأمور تسير معي بشكل جد عادي إلا .. الجريد كنترول و التعامل معها
تحياتي واحتراماتي و تقييماتي