以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  看不懂的，帮助中没有的代码，烦高手解释一下。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=33055)
--  作者：jxkqf
--  发布时间：2013/5/12 21:41:00
--  看不懂的，帮助中没有的代码，烦高手解释一下。

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