snasui.com ยินดีต้อนรับ ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ ระบุ Version ของ Excel
For i As Integer = 0 To PRODUCTIONDataGridView.Rows.Count() - 1 Step +1
Dim rowAlreadyExist As Boolean = False
Dim check As Boolean = PRODUCTIONDataGridView.Rows(i).Cells(3).Value
Dim row As DataGridViewRow = PRODUCTIONDataGridView.Rows(i)
If check = True Then
If IN_PRODUCTIONDataGridView.Rows.Count() > 0 Then
For j As Integer = 0 To IN_PRODUCTIONDataGridView.Rows.Count() - 1 Step +1
If row.Cells(0).Value.ToString() = IN_PRODUCTIONDataGridView.Rows(j).Cells(0).Value.ToString() Then
rowAlreadyExist = True
Exit For
End If
Next
If rowAlreadyExist = False Then
IN_PRODUCTIONDataGridView.Rows.Add(row.Cells(0).Value.ToString(),
row.Cells(1).Value.ToString(),
row.Cells(2).Value.ToString(),
row.Cells(3).Value)
End If
Else
IN_PRODUCTIONBindingSource.AddNew()
IN_PRODUCTIONDataGridView.Rows.Add(row.Cells(0).Value.ToString(),
row.Cells(1).Value.ToString(),
row.Cells(2).Value.ToString(),
row.Cells(3).Value)
End If
End If
Next
You do not have the required permissions to view the files attached to this post.