|
 |
| |
รบกวนผู้รู้เกี่ยวกับ vb ช่วยดูโค้ด การวนลูปของ DataGrid หน่อยค่ะ |
| |
 |
|
|
 |
 |
|
ขอดูรูปของแบบ data grid หน่อยครับ แล้วก็วงตัวที่จะรวมให้ดูหน่อยนะครับ ขอบคุณครับ
|
 |
 |
 |
 |
| Date :
2010-12-10 08:28:42 |
By :
zero1150kfc |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
อีกอย่าง โค๊ตด้านบนเป็นโค๊ตวนทั้ง แกน x และแกน Y นะ
ถ้าอยากได้โค๊ต วนแค่แนวตั้งแถวเดียวก็
Dim ij As Integer
Dim sum As Double = 0
For i = 0 To DataGridView1.Rows.Count - 1
sum = DataGridView1.Rows(i).Cells(5).Value + sum
txt3.Text = sum
จะสังเกตุได้ว่า ตัว I คือให้วน แถวไปเรื่อยๆ แต่เลข 5 คือ colums( หมายถึงนับไปจากทาง ซ้ายไปขวา เริ่มจาก 0 จากตัวนี้อย่างนี้ก็คือช่องที่ 6 นั้งเองนะครับ )
|
| |
|
|
| |
| Date :
2010-12-10 08:51:49 |
By :
zero1150kfc |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ถ้าน้องต้องการ รวมทุก Column เช่น มี 5 Column น้องก็ต้องมี ตัวแปรมารับผลรวมของแต่ละ Column นะคับ ถ้าเอาแบบง่ายๆ ก็สร้างมา 5 ตัว เป็น S1,S2,S3,S4,S5 ก็ได้ ในตอนที่ Loop ก็เช็คว่ามันอยู่ Column ไหน ถ้าอยู่ Column ที่ 3 ก็เอาไปรวมกับตัวแปรที่เก็บผลรวม S3 แบบนี้คับ
|
| |
|
|
| |
| Date :
2010-12-10 11:07:23 |
By :
diysms |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ขอบคุณค่ะ ได้เรียบร้อยแล้ว
แต่ว่ามันเป็นการโชว์ค่าที่คิดได้ออกมาค่ะ
ถ้าอยากให้มันเก็บค่าที่วงไว้ เป็น array ทำได้ไหมคะ พอดีว่าต้องใช้ค่ามาคำนวณต่อค่ะ
code
stroutput5 = vbCrLf
For j = 1 To DataGridView1.Columns.Count - 2
For k = 1 To DataGridView1.Columns.Count - 1
Dim SumdotXX As Double = 0
For i = 0 To DataGridView1.Rows.Count - 1
SumdotXX = DataGridView1.Rows(i).Cells(j).Value * DataGridView1.Rows(i).Cells(k).Value + SumdotXX
Next
stroutput5 &= ("X" & j & "* X" & k & ControlChars.Tab & " ผลรวม = " & String.Format(SumdotXX) & ControlChars.CrLf & vbCrLf)
Next
Next
txt3.Text = stroutput & vbCrLf & stroutput1 & stroutput2 & stroutput3 & stroutput4 & stroutput5
|
| |
|
|
| |
| Date :
2010-12-12 02:26:21 |
By :
JollJ |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
| |
|
 Load balance : Server 00
|
