سلام عليكم اخواني
كيف يمكن حساب الارقام المتشابهة في الجدول
مثلا قاعدة بيانات وفيها عمود بارقام مختلفة واريد حساب عدد كم مرة فيها 99 وكم مرة فيها مثلا 100 وكم عدد 14 وهكذا
PHP كود :
SELECT col1, COUNT(col1) FROM tbl GROUP BY col1
وش يعني ؟ كيف رح يجيب عدد ارقام من داتا كرد فيو او من قاعدة البيانات وعرضها بتكست او ليبل
وعليكم السلام
قم بانشاء داتا جريد فيو ولنسمه 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
(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
المشكلة الان كيف احسب العدد المفروز ؟
انا اسف لا افهم معنى كلامك انك لا تحتاج CellClick
الكود انا عملته في حدث CellClick ولكن انت تستطيع ان تضعه مثلا في زر
والكود انا عملته بناء على ما فهمته من كلامك في مشاركتك الاولى وهو يحسب اي شيء مكرر سواء كان رقم او نص او حتى فراغ
اذا ممكن اشرح بالتفصيل مالذي تريده بالضبط
اها مشكور فعلا ضبط فهمت الفكرة
العملته انت ياخذ من خلية واحدة انا فهمت عمله ورح اغير بعد بيه
مشكور اخي الغالي
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