สอบถามการ sum หรือหาผลรวม ของคอลัมใน datagridview หน่อยครับ

ได้แล้วครับ ขอบคุณครับ ขอถามอีกนิดครับ ผมต้องการหาผลรวมของคอลัมโอทีด้วยครับ ต้องเขียนแบบไหนครับ บอกหน่อยครับ ขอบคุณครับ

ติดตรงไหนครับ เอาโค้ดมาดู

ผมต้องการหาผลรวมคอลัมใน datagridview คอลัมโอทีครับ อยากให้รวมเวลาคอลัมโอทีครับ แล้วนับ จำนวนวันที่ทำโอที ไปที่ texbox ทั้ง 2 ตัวครับ โดยแยกให้ texbox1 รับ เวลารวมของวันที่ทำโอที texbox2 ให้รับจำนวมเวลารวมที่ทำโอทีว่าได้กี่ชั่วโมง ที่วงไว้อ่ะครับ ต้องเขียนโค๊ดอย่างงัย รบกวนอีกรอบนะครับ ขอบคุณมากๆเลยนะครับ

ผมเขียนไว้แบบนี้ แล้ว errer ครับ
Dim timeot As TimeSpan
Dim workedot As Integer = 0

For Each row As DataGridViewRow In dgvTimework.Rows
If row.Cells("statusleave").Value = "ทำงาน" Then
Dim worktimeot As String = Convert.ToString(row.Cells("ot").Value)
Dim workot As TimeSpan = TimeSpan.Parse(worktimeot)
timeot = timeot.Add(workot)
workedot += 1
End If
Next

txtOt.Text = timeot.ToString("hh\:mm\:ss")
txtCountot.Text = workedot

ข้อมูลไม่มาครับ แก้ยังไงดีครับ ช่วยหน่อยครับ

Private Sub sumtotaltime()
Try
Dim jamkerja As Short
Dim timespan As New TimeSpan(0, 0, 0, 0, 0)
jamkerja = 0
For t As Integer = 0 To dgvTimework.Rows.Count - 1
'jamkerja = jamkerja + Val(DGVexcel.Rows(t).Cells(7).Value)

Dim value = Val(dgvTimework.Rows(t).Cells("ot").Value)

Dim interval As TimeSpan
If Not TimeSpan.TryParse(value, interval) Then

timespan.Add(interval)
End If
Next
txtOt.Text = timespan.ToString("hh\:mm\:ss")
Catch ex As Exception

End Try

End Sub

ลองไล่ debug ดู error ยังครับ

ไม่ค่อยเก่งครับ ดูไม่ออกครับ เลยต้องขอผู้ช่วยอ่ะครับ ใครก็ได้ช่วยหน่อยครับ ขอบคุณมากๆ สำหรับทุกคำตอบ

ถ้าไม่ไส่ errer แบบนี้ครับ

ลองลบcell("ot") ออกไปก่อน แล้วลองนับดูว่า cellที่เท่าไหรแล้วก็ใส่แทนลงไปดู

ผมน่าจะแก้ได้แล้วนะครับ แต่ตรงแถวในคอมลั่มที่ไม่มีข้อมูลอยู่ด้วย โปรแกรมจะไม่คำนวนให้ครับ จะแก้ไขอย่างงัยครับ หรือเพิ่มโค๊ดดักตรงไหนครับ แล้วผมต้องการให้เช็คคอลั่มด้วยว่า ให้นับจำนวนที่มีค่ามากกว่า 00:00:00 มาลงอีก texbox1 ต้องเขียนแบบไหนครับ หรือเพิ่มเติมตรงไหนครับ

Public Sub sumot()

Dim timeot As TimeSpan
Dim workedot As Integer = 0

For Each row1 As DataGridViewRow In dgvTimework.Rows
If row1.Cells("ot").Value > "00:00:00" Then
Dim worktimeot As String = Convert.ToString(row1.Cells("ot").Value)
Dim workot As TimeSpan = TimeSpan.Parse(worktimeot)
timeot = timeot.Add(workot)
workedot += 1
End If
Next

txtOt.Text = timeot.ToString("hh\:mm\:ss")
txtCountot.Text = workedot

End Sub

ดักจับค่าว่าง(DBNULL) โดยใช้

Code (VB.NET)

If row1.Cells("ot").Value.ToString() <> String.Empty Then
**********

End IF

ต้องขอโทษด้วยนะครับ ผมไม่ใช่โปรแกรมเมอร์อาชีพนะครับ ผมเขียนเพื่อใช้งานเองในร้านเล็กๆมีพนักงานไม่ถึง 10 คนครับ แล้วผมก็อยากหาความรู้เกี่ยวกับการเขียนโปรแกรมบ้าง โค๊ดอันไหนถูกผิด ผมก็ได้จากตรงนี้นะครับ ขอบคุณทุกคำช่วยเหลือมากๆนะครับ ผมเชื่อว่าคนที่มาช่วยหาทางออกสำหรับคนที่ไม่รู้นี่ จิตใจเค้าประเสิทมากๆนะครับ มีความเอื้อเฟื้อเผื่อแผ่ในทางความรู้ให้แก่ผู้ที่ไม่รู้ ก็ขอให้สิ่งดีดีกับไปหาทุกคนที่ช่วยผมด้วยนะครับ ขอบคุณมากๆจริงครับ

ได้แล้วครับคุณต่อ โด๊ดสั้นลงแล้วทำงานได้จริง แต่ผมขอถามเพิ่มอีกนิดนะครับ ผมอยากให้เช็คด้วยว่าในคอลัมโอทีนี้ มันมีค่ามากกว่า 00:00:00
อยู่กี่โล แล้วให้ไปโชที่ texbox อีกตัวนึงครับ ต้องเพิ่มตรงไหนครับ

Dim timeot As TimeSpan
Dim workedot As Integer = 0

For Each row1 As DataGridViewRow In dgvTimework.Rows
If row1.Cells("ot").Value.ToString <> String.Empty Then
timeot = timeot.Add(TimeSpan.Parse(row1.Cells("ot").Value.ToString()))
End If

Next

txtOt.Text = timeot.ToString("hh\:mm\:ss")
'txtCountot.Text = workedot

ใช้ if ดัก จับ เฉพาะ วันที่ TimeSpan > 0 ครับ

น่าจะประมาณว่า

Code (VB.NET)

Dim OTCount Integer = 0
For Each row1 As DataGridViewRow In dgvTimework.Rows
If row1.Cells("ot").Value.ToString <> String.Empty  AND TimeSpan.Parse(row1.Cells("ot").Value.ToString()) >0Then
timeot = timeot.Add(TimeSpan.Parse(row1.Cells("ot").Value.ToString()))
OTCount +=1
End If

Next

ลองเช็คโค้ดอีดรอบนะครับ ผมแค่เขียนคร่าวๆ

errer ตรง 0 ครับคุณต่อ

Dim timeot As TimeSpan
'Dim workedot As Integer = 0

Dim OTCount As Integer = 0
For Each row1 As DataGridViewRow In dgvTimework.Rows
If row1.Cells("ot").Value.ToString <> String.Empty And TimeSpan.Parse(row1.Cells("ot").Value.ToString()) > 0 Then
timeot = timeot.Add(TimeSpan.Parse(row1.Cells("ot").Value.ToString()))
OTCount += 1
End If

Next

txtOt.Text = timeot.ToString("hh\:mm\:ss")
txtCountot.Text = OTCount

ประรูปแบบให้เป็น TimeSpan ครับ

คิดง่ายคือ ถ้า TimeSpan > 0 ค่อยเอามาคิดค่าครับ