31-03-18, 10:56 PM
(31-03-18, 04:11 PM)محمد اسماعيل كتب : السلام عليكم
عندي جدول مبيعات فية عمود اسماء وعمود اجمالي المشتريات للعميل
الجدول باسم CLIENT_
الاعمدة الاسماء CLIENTNAM_ والاجمالي SALTOTPRIC_
محمد 3000
علي 4000
علي 2000
محمد 500
حسن 200
وجدول متحصلات ونقدية العملاء خاص بالدفع علي دفعات ممكن شخص يدفع واخر لم يدفع حتي الان
الجدول باسم DEBTABL_
الاعمدة باسم CLIENTNAM_ والدفعات باسم CASHDE_
علي 2000
محمد 800
محمد 200
حسن تخلف عن الدفع ولكن الاسماء لازم تكون نفسها بالجدولين لان العمليات مرتبطة تمام
انا عايز اجمع من جدول 1و2 الاسماء تصبح بعمود واحد : جدول1 اجمالي المشتريات عمود 2 :
واجمالي الدفعات من الجدول 2 تصبح عمود 3
الاستعلام يبقي بالشكل دة
الاسم المشتريات الدفعات
محمد 3500 1000
علي 6000 2000
حسن 200
الاستعلام الي استخدمتة وم ياتي بنتيجة معايا
كود :
Dim cmd As OleDbCommand = New OleDbCommand("SELECT CLIENT_.CLIENTNAM_,SUM(CLIENT_.SALTOTPRIC_) As [COUNT],SUM(DEBTABL_.CASHDE_)As [COUNT2] FROM CLIENT_ Join(DEBTABL_) on CLIENT_. CLIENTNAM_ = DEBTABL_.CLIENTNAM_ GROUP BY CLIENT_.CLIENTNAM_", con)
con.Open()
DataAdapterCOLLECTCLIEN = New OleDbDataAdapter(cmd)
Dim builder As OleDbCommandBuilder = New OleDbCommandBuilder(DataAdapterCOLLECTCLIEN)
DataSetCOLLECTCLIEN = New DataSet()
DataAdapterCOLLECTCLIEN.Fill(DataSetCOLLECTCLIEN, "CLIENT_,DEBTABL_")
DataGridView1.DataSource = DataSetCOLLECTCLIEN
DataGridView1.DataMember = "CLIENT_,DEBTABL_"
con.Close()
السلام عليكم
اخي محمد ارجو توضيح السؤال اكتر او وضع مثال علي ذالك وانا استخدمت هذا الكود من قبل مع قاعدة بيانات اكسس ولكن هناك تاخير قي استدعاء البيانات وشكرا
