20-12-21, 05:20 PM
23-12-21, 03:54 AM
السلام عليكم...
تفضل:
تفضل:
كود :
Dim arr() As String
Sub From_dgv_to_Araay()
Dim a As String
For i = 0 To DataGridView1.Rows.Count - 1
ReDim Preserve arr(i)
a = DataGridView1.Rows(i).Cells(0).Value
arr(i) = a
Next
End Sub