15-05-18, 11:09 PM
(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
حسب ترتيباتك
اتمنى تكون الفكرة بسيطة والشرح واضح
وانا اسف لم اقدر اعمل على مشروعك وتعديل الكود وارفاق الملف بالمرفقات
أولاً احبب دائماً التعليم وان تستفيد من الفكرة والطريقة
ثانياً اختلاف اصدار النسخة الى عندك وعندى
تمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية