ProjectForStudy

 ลืมรหัสผ่าน
 ลงทะเบียน
ค้นหา
ดู: 773|ตอบกลับ: 1

[แบ่งปัน] How to aggregate column in datagridview หาผลสรุป (sum, average, min max) ใน datagridcolumn ที่ต้องการ)

[คัดลอกลิงก์]
  • อารมณ์วันนี้
    แฮปปี้
    2017-6-25 18:59
  • เช็คชื่อแล้ว: 2 วัน

    [LV.1]NewBie

    107

    กระทู้

    513

    โพสต์

    1หมื่น

    เครดิต

    ผู้ดูแลระบบ

    Rank: 9Rank: 9Rank: 9

    เครดิต
    15170
    Ticket
    11312
    จิตพิสัย
    3858

    Expert OnlineExpert Post

    Screen Shot
         

         


    Source Code
    Generate Data - Random ข้อมูล

    1. Private Sub GenerateData()
    2.         Dim dt As New DataTable

    3.         dt.Columns.Add("Value1")
    4.         dt.Columns.Add("Value2")
    5.         dt.Columns.Add("Value3")
    6.         dt.Columns.Add("Value4")
    7.         Randomize()
    8.         For i As Integer = 1 To 100
    9.             dt.Rows.Add(i * Rnd(), i + (99 * Rnd()), i + (999 * Rnd()), i + (9999 * Rnd()))
    10.         Next

    11.         DataGridView1.DataSource = dt
    12.         AddDataGridViewToCombobox()
    13.     End Sub
    คัดลอกไปที่คลิปบอร์ด
    BtnExucete_Click - ปุ่ม Execute

    1. Private Sub BtnExecute_Click(sender As Object, e As EventArgs) Handles BtnExecute.Click

    2.         If String.IsNullOrWhiteSpace(CboColumns.Text) Or String.IsNullOrWhiteSpace(CboActions.Text) Then
    3.             MsgBox("Please select column and action")
    4.             Return
    5.         End If


    6.         Dim rows As List(Of DataGridViewRow) = DataGridView1.Rows.Cast(Of DataGridViewRow).ToList()

    7.         Select Case CboActions.Text
    8.             Case "Sum"
    9.                 LblResult.Text = rows.Sum(Function(r) r.Cells(CboColumns.Text).Value)
    10.             Case "Average"
    11.                 LblResult.Text = rows.Average(Function(r) r.Cells(CboColumns.Text).Value)
    12.             Case "Min"
    13.                 LblResult.Text = rows.Min(Function(r) r.Cells(CboColumns.Text).Value)
    14.             Case "Max"
    15.                 LblResult.Text = rows.Max(Function(r) r.Cells(CboColumns.Text).Value)
    16.         End Select
    17.     End Sub
    คัดลอกไปที่คลิปบอร์ด
    Add columns datagridview to items in combobox - เพิ่ม column จาก datagridview เป็น item ใน combobox
    1.   Private Sub AddDataGridViewToCombobox()
    2.         CboColumns.Items.Clear()
    3.         CboColumns.Items.AddRange(DataGridView1.Columns.Cast(Of DataGridViewColumn).Select(Function(c) c.Name).ToArray())
    4.     End Sub
    คัดลอกไปที่คลิปบอร์ด



    Download













    ขออภัย! โพสต์นี้มีไฟล์แนบหรือรูปภาพที่ไม่ได้รับอนุญาตให้คุณเข้าถึง

    คุณจำเป็นต้อง ลงชื่อเข้าใช้ เพื่อดาวน์โหลดหรือดูไฟล์แนบนี้ คุณยังไม่มีบัญชีใช่ไหม? ลงทะเบียน

    x
  • อารมณ์วันนี้
    แฮปปี้
    2019-11-30 11:34
  • เช็คชื่อแล้ว: 3 วัน

    [LV.2]BeginnerI

    0

    กระทู้

    12

    โพสต์

    12

    เครดิต

    BabyGhost

    Rank: 1

    เครดิต
    12
    Ticket
    5
    จิตพิสัย
    7
    jusmin โพสต์ 2019-11-30 11:35:23 | ดูโพสต์ทั้งหมด
    thank you
    ขออภัย! คุณไม่ได้รับสิทธิ์ในการดำเนินการในส่วนนี้ กรุณาเลือกอย่างใดอย่างหนึ่ง ลงชื่อเข้าใช้ | ลงทะเบียน

    รายละเอียดเครดิต

    ข้อความล้วน|อุปกรณ์พกพา|ประวัติการแบน|ProjectForStudy  

    GMT+7, 2020-8-13 21:42 , Processed in 0.046921 second(s), 28 queries .

    Powered by Discuz! X3.2 R20150609, Rev.38

    © 2001-2013 Comsenz Inc.

    ตอบกระทู้ ขึ้นไปด้านบน ไปที่หน้ารายการกระทู้