+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : [سؤال] رجاء المساعدة في اخفاء القيم الصفرية في هذا المشروع (/showthread.php?tid=20343)
الصفحات:
1
2
رجاء المساعدة في اخفاء القيم الصفرية في هذا المشروع - nourmandour - 11-05-17
برجاء المساعدة في اخفاء القيم الصفرية في هذا المشروع اعلم انه بالنسبة لكم شيئ بسيط
RE: السادة اهل الخبرة - nourmandour - 14-05-17
(12-05-17, 04:03 PM)Amir_alzubidy كتب : للنصيحة اخي الكريم
استخدم MSHFlexGrid Tools فهي افضل بكثير من الداتا قريد
ممكن تساعدني لو سمحت
ممكن تساعدني لو سمحت
RE: رجاء المساعدة في اخفاء القيم الصفرية في هذا المشروع - sendbad100 - 14-05-17
السلام عليكم
المطلوب غير واضح
حدد اي قيمة تريد بموجبه يتم الاخفاء هل اذا كان المدين صفر او الدائن اوالفرق بينهما
حسب فهمي
احف الكود الذي في زر العرض
وضع التالي
اتمنى يفي بالغرض
PHP كود :
Private Sub Command1_Click()
On Error Resume Next
If Me.Check1.Value = 1 Then
Adodc1.RecordSource = "SELECT name AS [اسم العميل], Sum(a_g) AS [حساب مدين], Sum(m) AS [حساب دائن], Sum(a_g)-Sum(m) AS [رصيد مدين], Sum(m)-Sum(a_g) AS [رصيد دائن] FROM fat GROUP BY name HAVING (((Sum(a_g)-Sum(m))<>0) AND ((Sum(m)-Sum(a_g))<>0))"
Else
Adodc1.RecordSource = "select name as [اسم العميل ],sum(a_g) as [حساب مدين],sum(m) as [حساب دائن],sum(a_g)-sum(m) as [رصيد مدين],sum(m)-sum(a_g) as [رصيد دائن] from fat group by name"
End If
Adodc1.Refresh
Label9 = Adodc1.Recordset.RecordCount
If Adodc3.Recordset.RecordCount > 0 Then
Set DataGrid1.DataSource = Adodc1
End If
DataGrid1.Columns.Item("0").Width = 2000
DataGrid1.Columns.Item("1").Width = 1000
DataGrid1.Columns.Item("2").Width = 1000
DataGrid1.Columns.Item("3").Width = 1000
DataGrid1.Columns.Item("4").Width = 1000
Label3 = ""
Label5 = ""
Label7 = ""
Dim Counter As Integer
For Counter = 1 To Adodc1.Recordset.RecordCount
Label3 = Val(Label3) + Adodc1.Recordset.Fields(1).Value
Label5 = Val(Label5) + Adodc1.Recordset.Fields(2).Value
Adodc1.Recordset.MoveNext
Next
Form_Activate
End Sub
RE: رجاء المساعدة في اخفاء القيم الصفرية في هذا المشروع - nourmandour - 14-05-17
بسم الله ماشاء الله يارب يزيدكم علم علمكم و ينفعنا بعلمكم
بس انا اسف جدا المطلوب اخفاء الصف بحالة اذا كان الرصيد الدائن صفر
RE: رجاء المساعدة في اخفاء القيم الصفرية في هذا المشروع - sendbad100 - 14-05-17
التعديل الذي وضعته لك يوقم باخفاء الصف الذي يكون رصيد المدين او رصيد الدائن صفر
RE: رجاء المساعدة في اخفاء القيم الصفرية في هذا المشروع - nourmandour - 14-05-17
(14-05-17, 03:13 AM)Amir_alzubidy كتب : السلام عليكم و رحمة الله و بركاته
اكيد اخي الحبيب و بكل سرور
تفضل التعديل
لوسمحت بعد اذنك انا عايز اخفي الصف بناء علي الرصيد الدائن اذا كان صفر
RE: رجاء المساعدة في اخفاء القيم الصفرية في هذا المشروع - sendbad100 - 14-05-17
بامكانك التعديل فقط على الاستعلام حسب حاجتك
RE: رجاء المساعدة في اخفاء القيم الصفرية في هذا المشروع - nourmandour - 14-05-17
(14-05-17, 02:32 PM)sendbad100 كتب : التعديل الذي وضعته لك يوقم باخفاء الصف الذي يكون رصيد المدين او رصيد الدائن صفر
منا بكتب الكود بيديني خطأ
(14-05-17, 02:34 PM)sendbad100 كتب : بامكانك التعديل فقط على الاستعلام حسب حاجتك
ممكن لو سمحت تعدلة في المثال الي انا رفعتة
(14-05-17, 02:34 PM)sendbad100 كتب : بامكانك التعديل فقط على الاستعلام حسب حاجتك
ممكن تعدلة في المثال الي انا رفعته بعد اذنك
RE: رجاء المساعدة في اخفاء القيم الصفرية في هذا المشروع - sendbad100 - 14-05-17
السلام عليكم
تفضل
RE: رجاء المساعدة في اخفاء القيم الصفرية في هذا المشروع - nourmandour - 14-05-17
(14-05-17, 02:34 PM)sendbad100 كتب : بامكانك التعديل فقط على الاستعلام حسب حاجتكلوسمحت سيدي السندباد عدلي علي المثال
(14-05-17, 02:45 PM)sendbad100 كتب : السلام عليكم
تفضل
الف مليون شكر و انا اسف جدا علي الازعاج
و جعلة الله في ميزان حسناتك و علمك و ذادك علما علي علمك و نفعنا بعلمك