PrivateSub FillDataUnit()
DAUnit.SelectCommand.CommandText = "Select * from UNITINFO "
DAUnit.Fill(DSUnit,"UNITINFO")
dgUnit.DataSource = DSUnit.Tables("UNITINFO")
dgUnit.Columns(0).Visible = False
dgUnit.Columns(1).HeaderText =" نام واحد"
dgUnit.Columns(2).HeaderText ="نام اختصاری"
dgUnit.Columns(3).HeaderText ="روزهای کارکرد"
dgUnit.Columns(3).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
EndSub
پاسخ با نقل قول