Page 1 of 1
สอบถามการตัดยอด ใน DataGridView ครับ
Posted: Mon Dec 18, 2017 1:05 pm
by nutpopo
ผมต้องการตัดยอด ตรง ช่อง คงเหลือนำออก แต่มันตัดแค่ครังเดียว เหลือ 450 จาก 500
แต่ผมนำออกถึง 3 ครั้ง ครั้งละ 50 ยอดคงเหลือนำออกต้อง เหลือ 350 ครับ
Re: สอบถามการตัดยอด ใน DataGridView ครับ
Posted: Mon Dec 18, 2017 6:20 pm
by snasui
เขียน Code ไว้ว่าอย่างไรช่วยนำมาโพสต์ด้วยจะได้ข่วยกันดูได้ครับ
Re: สอบถามการตัดยอด ใน DataGridView ครับ
Posted: Mon Dec 18, 2017 7:23 pm
by nutpopo
ขอโทษด้วยครับผมลืมแนบไฟล์
ตัวอย่างก็ประมาณนี้ครับ
Dim i As Integer = 0
Dim tmpNetTotal As Double = 0
For i = 0 To ONDataGridView1.Rows.Count - 1
tmpNetTotal += CDbl(ONDataGridView1.Rows(i).Cells(3).Value)
Next
TextBox1.Text = tmpNetTotal
For k As Integer = 0 To ONDataGridView1.RowCount - 1
If Convert.ToSingle(ONDataGridView1(3, k).Value) > 0 Then
ONDataGridView1(5, k).Value = (ONDataGridView1(5, k).Value) - TextBox1.Text
ElseIf Convert.ToSingle(ONDataGridView1(3, k).Value) < 0 Then
ONDataGridView1(5, k).Value = (ONDataGridView1(5, k).Value) - TextBox1.Text
End If
Next
Re: สอบถามการตัดยอด ใน DataGridView ครับ
Posted: Mon Dec 18, 2017 8:52 pm
by snasui
กรณีต้องการลบ 3 ครั้งก็ให้วน Loop เข้าไปช่วยครับ เช่น
Code: Select all
For j as Integer = 1 to 3
For k As Integer = 0 To ONDataGridView1.RowCount - 1
If Convert.ToSingle(ONDataGridView1.Rows(k).Corlumns(5).Value) > 0 Then
ONDataGridView1.Rows(k).Corlumns(5).Value = (ONDataGridView1.Rows(k).Corlumns(5).Value.Value) - TextBox1.Text
ElseIf Convert.ToSingle(ONDataGridView1.Rows(k).Corlumns(5).Value) < 0 Then
ONDataGridView1.Rows(k).Corlumns(5).Value = (ONDataGridView1.Rows(k).Corlumns(5).Value) - TextBox1.Text
End If
Next
Next
การโพสต์ Code ควรโพสต์ให้แสดงเป็น Code ดูตัวอย่างที่กฎการใช้บอร์ดข้อ 5 ด้านบนครับ
