Private Sub msfg2_DataBindingComplete(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewBindingCompleteEventArgs) Handles msfg2.DataBindingComplete
Try
' 设定包括Header和所有单元格的列宽自动调整
msfg2.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
' 设定包括Header和所有单元格的行高自动调整
msfg2.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
msfg2.SelectionMode = DataGridViewSelectionMode.FullRowSelect '按全行选中
' 禁止用户改变行头的宽度
msfg2.RowHeadersWidthSizeMode = DataGridViewRowHeadersWidthSizeMode.DisableResizing
msfg2.CurrentRow.Selected = True
'第一行的行标头
'DG1.Rows(0).HeaderCell.Value = "1"
msfg2.RowHeadersWidth = 22
Dim r As Integer
For r = 0 To msfg1.Rows.Count + 1
msfg2.Rows(r).HeaderCell.Value() = (r + 1).ToString
Next
Catch ex As Exception
End Try