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
