Public Class 人員資料表 ReadOnly ds As New DataSet Private Sub 讀取人員資料表() 人員清單_dgv.DataSource = Nothing : ds.Clear() 人員清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 人員清單_dgv.ColumnHeadersHeight = 50 人員清單_dgv.AllowUserToAddRows = False SQL_人員資料() da.Fill(ds) : 人員清單_dgv.DataSource = ds.Tables(0) : conn.Close() End Sub Private Sub 人員資料表_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.MdiParent = GCM_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True 讀取人員資料表() End Sub End Class