تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] استفسار عن دالة لحساب الارقام المتشابهة
#1
سلام عليكم اخواني

كيف يمكن حساب الارقام المتشابهة في الجدول
مثلا قاعدة بيانات وفيها عمود بارقام مختلفة واريد حساب عدد كم مرة فيها 99 وكم مرة فيها مثلا 100 وكم عدد 14 وهكذا
الرد }}}
تم الشكر بواسطة: خالد20
#2
PHP كود :
SELECT col1COUNT(col1FROM tbl GROUP BY col1 
الرد }}}
تم الشكر بواسطة: خالد20
#3
وش يعني ؟ كيف رح يجيب عدد ارقام من داتا كرد فيو او من قاعدة البيانات وعرضها بتكست او ليبل
الرد }}}
تم الشكر بواسطة: خالد20
#4
وعليكم السلام
قم بانشاء داتا جريد فيو ولنسمه dgv قم باضافة عمود واحد على الاقل ولنسمه مثلا num
قم بانشاء lable عدد 2
كود :
   Private Sub dgv_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv.CellClick
       Dim a As Integer = dgv.CurrentRow.Index
       Label1.Text = dgv.Rows(a).Cells("num").Value

       Dim rep As Integer
       For i As Integer = 0 To dgv.Rows.Count - 1
           If dgv.Rows(i).Cells("num").Value = Label1.Text Then
               rep += 1
           End If
       Next
       Label2.Text = rep
   End Sub
سورس كود برنامج محاسبة ومبيعات احترافي  -  سورس كود تطبيق ارسال رصيد من الجوال B4A
سورس كود تطبيق مبيعات للجوال
تيليجرام   Abo_anas_kahwaji@
واتساب 00963951283515
الرد }}}
تم الشكر بواسطة: خالد20 , ماشي , ماشي
#5
(27-09-21, 03:46 PM)ابو انس كتب : وعليكم السلام
قم بانشاء داتا جريد فيو ولنسمه dgv قم باضافة عمود واحد على الاقل ولنسمه مثلا num
قم بانشاء lable عدد 2
كود :
   Private Sub dgv_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv.CellClick
       Dim a As Integer = dgv.CurrentRow.Index
       Label1.Text = dgv.Rows(a).Cells("num").Value

       Dim rep As Integer
       For i As Integer = 0 To dgv.Rows.Count - 1
           If dgv.Rows(i).Cells("num").Value = Label1.Text Then
               rep += 1
           End If
       Next
       Label2.Text = rep
   End Sub


شكرا لردك لكن ما احتاج الى CellClick  , الفكرة انا اريد فرز ارقام معينة في الجدول يعني تواريخ متشابهة عملت هذا الكود


كود :
For i As Integer = 0 To DgvOne.Rows.Count - 1
           Dim str As String = DgvOne(3, DgvOne.Rows(i).Index).Value
         
           Dim Spl() As String = Split(str, "/")

           Dim Num As String = "2018"

           If Spl(2) = Num Then
               RichTextBox1.Text += Spl(2) & vbNewLine

           Else

           End If

     
 Next

المشكلة الان كيف احسب العدد المفروز ؟  Sad
الرد }}}
تم الشكر بواسطة:
#6
انا اسف لا افهم معنى كلامك انك لا تحتاج CellClick
الكود انا عملته في حدث CellClick ولكن انت تستطيع ان تضعه مثلا في زر
والكود انا عملته بناء على ما فهمته من كلامك في مشاركتك الاولى وهو يحسب اي شيء مكرر سواء كان رقم او نص او حتى فراغ
اذا ممكن اشرح بالتفصيل مالذي تريده بالضبط
سورس كود برنامج محاسبة ومبيعات احترافي  -  سورس كود تطبيق ارسال رصيد من الجوال B4A
سورس كود تطبيق مبيعات للجوال
تيليجرام   Abo_anas_kahwaji@
واتساب 00963951283515
الرد }}}
تم الشكر بواسطة: خالد20
#7
اها مشكور فعلا ضبط فهمت الفكرة
العملته انت ياخذ من خلية واحدة انا فهمت عمله ورح اغير بعد بيه
مشكور اخي الغالي
الرد }}}
تم الشكر بواسطة: ابو انس
#8
PHP كود :
Dim cnn As New OleDbConnection ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Jet OLEDB:Database Password=")

Dim da As New OleDbDataAdapter("SELECT col1, COUNT(col1) FROM tbl GROUP BY col1"cnn)

Dim dt As DataTable
da
.Fill(dt)

DataGridView1.DataSource dt 
الرد }}}
تم الشكر بواسطة: ابو انس



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم