[elgokr]

(15-05-18, 10:12 PM)atefkhalf2004 كتب : اسف للتاخير   لما اضغط button1 يعمل البيانات في جريد2    شكرا كثيرا لكم

تفضل اخى الفاضل الطريقة بنائاً على مشروعك

أولاً انت عندك داخل منطقة الاكواد SUB باسم

كود :

Sub fillcombo4()

كل الفكرة هيتم انشاء واحد تانى بنفس الفكرة وهيكون كوده التالى

كود :

Sub fillcombo3()

       If objconn.State = ConnectionState.Closed Then objconn.Open()
       Sql = "SELECT MAX(invon), MAX(invdat), invcmn, SUM(invtol), MAX(sup_no), MIN(invser), MAX(invdiscount), MAX(invnettotal), MAX(supcod) FROM adpurhd GROUP BY invcmn"
       Dp = New OleDbDataAdapter(Sql, objconn)
       Dp.Fill(ds, "adpurhd")
       objconn.Close()
       ComboBox4.DataBindings.Clear()
       ComboBox4.Items.Clear()
       For i As Integer = 0 To Me.BindingContext(ds, "adpurhd").Count - 1
           Dim AddStr As String = ds.Tables("adpurhd").Rows(i).Item("invon").ToString
           If AddStr <> "" Then ComboBox4.Items.Add(AddStr)
       Next
       ComboBox4.Text = ""

   End Sub

حتى الان جميل ومفيش اى مشكلة

شفت الكود اللى انت عملته فى منطقة Form1_Load

كل اللى انا عملته اخت منه نسخة 

ورحت على الزر المطلوب عند الضغط عليه يعرض طريقة الداتا

وقم بوضع الكود التالى بداخل (Button1_Click)

كود :

fillcombo3()
       tempTable.Columns.Add("المجموعة", GetType(String))
       tempTable.Columns.Add("الشركة", GetType(String))

       tempTable.Columns.Add("كود الصنف", GetType(Integer))

       tempTable.Columns.Add("رقم الصنف", GetType(String))

       tempTable.Columns.Add("اسم الصنف", GetType(String))
       tempTable.Columns.Add("الوحدة", GetType(String))
       tempTable.Columns.Add("الكمية", GetType(Decimal))
       tempTable.Columns.Add("السعر", GetType(Decimal))
       tempTable.Columns.Add("الاجمالي", GetType(Decimal))
       tempTable.Columns.Add("الخصم", GetType(Decimal))
       Me.DataGridView2.AutoGenerateColumns = False
       Me.DataGridView2.AllowUserToResizeColumns = False
       Me.DataGridView2.DataSource = tempTable

ايه الاختلاف هنا بين لما المشروع يفتح وبين لما اضغط على الزر فقط جملة

كود :

ى منطقة Load
fillcombo4()

فى منطقة Button
fillcombo3()

طيب انت محتاج تخلى لما المشروع يفتح يعرض فى DataGridView1 الداتا كلها

ولما اضغط على الزر يعرض الداتا جروب فى DataGridView2

كل الفكرة السطر ده

كود :

Me.DataGridView2.DataSource = tempTable

قم بتغيير رقم 2 ما بين 1 و 2

حسب ترتيباتك

اتمنى تكون الفكرة بسيطة والشرح واضح

وانا اسف لم اقدر اعمل على مشروعك وتعديل الكود وارفاق الملف بالمرفقات

أولاً احبب دائماً التعليم وان تستفيد من الفكرة والطريقة

ثانياً اختلاف اصدار النسخة الى عندك وعندى

تمنياتى لك التوفيق