[محمد كريّم]

تكرم يا طيب

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

كذلك يجب تعديل خانة field name  في جريدفيو الفورم 1

أضفت عمود ProductId وغيرت خاصية الظهور إلى مخفي visible في جريدفيو فورم1

---

فورم1 :

كود :

Public Class XtraForm1

   Dim SalesGridDataSource As New List(Of SalesGridLine) 'كود جديد

   Private Sub XtraForm1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       GridControl1.DataSource = SalesGridDataSource 'كود جديد
   End Sub

   Sub New()
       InitializeComponent()
       DevExpress.Skins.SkinManager.EnableFormSkins()
       DevExpress.UserSkins.BonusSkins.Register()
       DevExpress.LookAndFeel.UserLookAndFeel.Default.SkinName = "Caramel"
   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       'كود جديد
       Dim frm As New XtraForm2
       If (frm.ShowDialog() = DialogResult.OK) Then
           SalesGridDataSource.Add(frm.TheSelectedRow)
           GridControl1.RefreshDataSource()
           ' GridView1.MoveLast()

       End If

   End Sub

End Class

---

فورم2 :

كود :

Imports System.Data
Imports System.Reflection
Imports DevExpress.Skins
Imports DevExpress.LookAndFeel
Imports DevExpress.UserSkins
Imports DevExpress.XtraEditors
Imports DevExpress.XtraGrid.Views.BandedGrid
Imports DevExpress.XtraGrid.Views.Base
Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.XtraEditors.DXErrorProvider
Imports DevExpress.XtraEditors.Repository
Imports DevExpress.XtraReports.UI
Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Columns
Public Class XtraForm2
   Dim ds, dt As DataSet
   Public rowSelect As DataRow = Nothing

   Public TheSelectedRow As New SalesGridLine

   Private Sub XtraForm2_Load(sender As Object, e As EventArgs) Handles MyBase.Load

       Me.MaximumSize = Me.Size
       Me.MinimumSize = Me.Size



       'ألغ تظليل أسطر قاعدة البيانات
       '        Call Sondoss_Connection()
       '  Global_Fill_GridControl(GridControl1, "SELECT ITEMS_Code,ITEMS_Name,ITEMS_Unite,ITEMS_Date_Expire,ITEMS_Prix_Vente,ITEMS_Stock From TBL_ITEMS Order By ITEMS_Code")
       '   Call Flex_DataGridView_Header_Text(GridView1)


       'ظلل كود داتاتيبل التجربة
       Dim dt As DataTable = New DataTable()
       'dt.Columns.AddRange(New DataColumn(5) {New DataColumn("كود الصنف"), New DataColumn("اسم الصنف"), New DataColumn("الوحدة"), New DataColumn("السعر الإفرادي"), New DataColumn("الكمية"), New DataColumn("السعر الإجمالي")})
       dt.Columns.Add(New DataColumn("ITEMS_Code"))
       dt.Columns.Add(New DataColumn("ITEMS_Name"))
       dt.Columns.Add(New DataColumn("ITEMS_Unite"))
       dt.Columns.Add(New DataColumn("ITEMS_Date_Expire"))
       dt.Columns.Add(New DataColumn("ITEMS_Prix_Vente"))
       dt.Columns.Add(New DataColumn("ITEMS_Stock"))
       dt.Columns.Add(New DataColumn("ITEMS_Total"))

       Dim Dr As DataRow = dt.NewRow()
       Dr("ITEMS_Code") = 1
       Dr("ITEMS_Name") = "صنف1"
       Dr("ITEMS_Unite") = "وحدة1"
       Dr("ITEMS_Date_Expire") = DateTime.Today.AddDays(30)
       Dr("ITEMS_Prix_Vente") = 12
       Dr("ITEMS_Stock") = 45
       Dr("ITEMS_Total") = 12

       dt.Rows.Add(Dr)

       Dim Dr2 As DataRow = dt.NewRow()

       Dr2("ITEMS_Code") = 2
       Dr2("ITEMS_Name") = "صنف2"
       Dr2("ITEMS_Unite") = "وحدة2"
       Dr2("ITEMS_Date_Expire") = DateTime.Today.AddDays(10)
       Dr2("ITEMS_Prix_Vente") = 22
       Dr2("ITEMS_Stock") = 33
       Dr2("ITEMS_Total") = 22

       dt.Rows.Add(Dr2)

       GridControl1.DataSource = dt
       'ظلل حتى هنا

   End Sub

   Public Sub Flex_DataGridView_Header_Text(ByVal DGV As DevExpress.XtraGrid.Views.Grid.GridView)
       If DGV.RowCount > 0 Then
           With DGV
               .Columns(0).Width = 90
               .Columns(1).Width = 90
               .Columns(2).Width = 90
               .Columns(3).Width = 90
               .Columns(4).Width = 90
               .Columns(5).Width = 90
           End With
       End If
   End Sub

   Private Sub RepositoryItemButtonEdit3_Click(sender As Object, e As EventArgs) Handles RepositoryItemButtonEdit3.Click
       TheSelectedRow.ProductName = GridView1.GetRowCellValue(GridView1.FocusedRowHandle, "ITEMS_Name")
       'TheSelectedRow.ProductBarcode = GridView1.GetRowCellValue(GridView1.FocusedRowHandle, "ITEMS_Code")
       TheSelectedRow.ProductCode = GridView1.GetRowCellValue(GridView1.FocusedRowHandle, "ITEMS_Code")
       TheSelectedRow.ProductPriceVente = GridView1.GetRowCellValue(GridView1.FocusedRowHandle, "ITEMS_Prix_Vente")
       TheSelectedRow.ProductQty = 1
       TheSelectedRow.ProductStock = GridView1.GetRowCellValue(GridView1.FocusedRowHandle, "ITEMS_Stock")
       TheSelectedRow.ProductUnite = GridView1.GetRowCellValue(GridView1.FocusedRowHandle, "ITEMS_Unite")

       Me.DialogResult = DialogResult.OK
       'Me.Dispose()
   End Sub

   Private Sub GridView1_InitNewRow(ByVal sender As Object, ByVal e As DevExpress.XtraGrid.Views.Grid.InitNewRowEventArgs)
       Dim view As GridView = TryCast(sender, GridView)
       view.SetRowCellValue(e.RowHandle, view.Columns(0), 1)
       view.SetRowCellValue(e.RowHandle, view.Columns(1), 2)
       view.SetRowCellValue(e.RowHandle, view.Columns(2), 3)
   End Sub

End Class