AfterLoad事件:
Dim tbl As WinForm.Table = e.Form.Controls("Table1")tbl.Table.Cols("项目名称").DropForm = "下拉窗口名"