รบกวนสอบถามครับว่าถ้าต้องกานให้ได้ ในรูปแบบนี้ต้องทำอย่างไร

outhai1992

1. For i As Integer = 0 To DGV3.Rows.Count() - 1
   
2.             Dim AMT As String
   
3.             AMT = DGV3.Rows(i).Cells(0).Value
   
4.             If AMT <> "" Then
   
5.                 DGV3.CurrentCell = DGV3.Rows(i).Cells(2)
   
6.                 DGV3.BeginEdit(True)
   
7.                 DGV3.CurrentRow.Cells(2).Value = Me.DGV1.CurrentRow.Cells(0).Value
   
8.             End If
   
9.         Next
   
10. 
    
11.         For i As Integer = 0 To DGV3.Rows.Count() - 1
    
12.             Dim AMT As String
    
13.             AMT = DGV3.Rows(i).Cells(1).Value
    
14.             If AMT <> "" Then
    
15.                 DGV3.CurrentCell = DGV3.Rows(i).Cells(3)
    
16.                 DGV3.BeginEdit(True)
    
17.                 DGV3.CurrentRow.Cells(3).Value = Me.DGV2.CurrentRow.Cells(0).Value
    
18.             End If
    
19.         Next

คัดลอกไปที่คลิปบอร์ด

thongkorn

ใช้การนับจำนวนหลักของ DGV2 เพื่อนำไปใส่ใน DGV3 ที่มีหลักคงที่ แต่แถวเปลี่ยนแปลงครับ ...

1.         With DGV2
   
2.             .Rows(0).Cells(0).Value = "5,000"
   
3.             .Rows(0).Cells(1).Value = "2,500"
   
4.             .Rows(0).Cells(2).Value = "2,500"
   
5.             .Rows(0).Cells(3).Value = "5,000"
   
6.         End With
   
7.         For i = 0 To 5
   
8.             DGV3.Rows.Add(New String() {0, 0, 0, 0})
   
9.         Next
   
10.         For i As Byte = 0 To DGV2.ColumnCount - 1
    
11.             With DGV3
    
12.                 .Rows(i + 2).Cells(3).Value = DGV2.Rows(0).Cells(i).Value
    
13.             End With
    
14.         Next

คัดลอกไปที่คลิปบอร์ด

outhai1992

thongkorn ตอบกลับเมื่อ 2020-9-21 19:32
ใช้การนับจำนวนหลักของ DGV2 เพื่อนำไปใส่ใน DGV3 ที่มีหลักคงที่ แต่แถวเปลี่ยนแปลงครับ ...

ขอบพระคุณมากๆครับ