foreach(DataGridItem item in DG_Nbr.Controls[0].Controls)
if (item.ItemType is ListItemType.Header)
for (int i = 0; i < Para_TitleNbr.GetUpperBound[0]; i ++)
item.Cell[i].Text = Para_TitleNbr[i];
Dim item As DataGridItem
For Each item In DG_Nbr.Controls(0).Controls
If item.ItemType = ListItemType.Header Then
For i = 0 To Para_TitleNbr.GetUpperBound(0)
item.Cells(i).Text = Para_TitleNbr(i)
Next
Exit For
End If
Next