AfterLoad 中的代码:
Dim dt As new DataTableBuilder("stock_find") '创建临时表
dt.adddef("型号",Gettype(String),64)
dt.adddef("数量",Gettype(Integer))
With Tables("stock_Table_stock")
.DataSource = dt.Build(True)
.Cols("型号").Width = 180
.Cols("数量").Width = 110
.AddNew(20)
.DataTable.Save
.AllowEdit = True
.Cols("型号").DropForm = "fast_input_pn"
.DataTable.GlobalHandler.KeyPressEdit = True
.DataTable.GlobalHandler.KeyDownEdit = True
.DataTable.GlobalHandler.ChangeEdit = True
.DataTable.GlobalHandler.ValidateEdit = True
.DataTable.GlobalHandler.DataColChanging = True
.DataTable.GlobalHandler.DataColChanged = True
End With