+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] استفسار عن دالة لحساب الارقام المتشابهة (/showthread.php?tid=39582)
استفسار عن دالة لحساب الارقام المتشابهة - نيمو - 27-09-21
سلام عليكم اخواني
كيف يمكن حساب الارقام المتشابهة في الجدول
مثلا قاعدة بيانات وفيها عمود بارقام مختلفة واريد حساب عدد كم مرة فيها 99 وكم مرة فيها مثلا 100 وكم عدد 14 وهكذا
RE: استفسار عن دالة لحساب الارقام المتشابهة - ماشي - 27-09-21
PHP كود :
SELECT col1, COUNT(col1) FROM tbl GROUP BY col1
RE: استفسار عن دالة لحساب الارقام المتشابهة - نيمو - 27-09-21
وش يعني ؟ كيف رح يجيب عدد ارقام من داتا كرد فيو او من قاعدة البيانات وعرضها بتكست او ليبل
RE: استفسار عن دالة لحساب الارقام المتشابهة - ابو انس - 27-09-21
وعليكم السلام
قم بانشاء داتا جريد فيو ولنسمه 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 SubRE: استفسار عن دالة لحساب الارقام المتشابهة - نيمو - 27-09-21
(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المشكلة الان كيف احسب العدد المفروز ؟
RE: استفسار عن دالة لحساب الارقام المتشابهة - ابو انس - 27-09-21
انا اسف لا افهم معنى كلامك انك لا تحتاج CellClick
الكود انا عملته في حدث CellClick ولكن انت تستطيع ان تضعه مثلا في زر
والكود انا عملته بناء على ما فهمته من كلامك في مشاركتك الاولى وهو يحسب اي شيء مكرر سواء كان رقم او نص او حتى فراغ
اذا ممكن اشرح بالتفصيل مالذي تريده بالضبط
RE: استفسار عن دالة لحساب الارقام المتشابهة - نيمو - 27-09-21
اها مشكور فعلا ضبط فهمت الفكرة
العملته انت ياخذ من خلية واحدة انا فهمت عمله ورح اغير بعد بيه
مشكور اخي الغالي
RE: استفسار عن دالة لحساب الارقام المتشابهة - ماشي - 27-09-21
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