Dim Basefrm As Windows.Forms.Form = e.Form.Controls("Btn_Add").BaseControl.FindForm
Basefrm.Width = e.Form.DropDownBox.Width
With Tables(e.Form.Name & "_Tbl_Main")
.Grid.Cols(0).Visible = False
.Grid.Rows(0).Visible = False
.Grid.CellButtonImage = GetImage("delete.png")
.ExtendLastCol = True
.DefaultRowHeight = 30
.DataTable.SysStyles("Focus").BackColor = Color.SkyBlue
.DataTable.SysStyles("Focus").ForeColor = Color.Red
.Cols("值").ComboList = "|..."
End With