试试改成
Dim dt As new DataTableBuilder("stock_find") '创建临时表
dt.adddef("型号",Gettype(String),64)
dt.adddef("数量",Gettype(Integer))
e.form.controls("Table_stock").Table.datasource = dt.BuildDataSource
With e.form.controls("Table_stock").Table
.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