去掉Click 事件和KeyDown事件
Dim dtb As New DataTableBuilder("产品明细")
dtb.AddDef("ProductID", Gettype(String), 32)
dtb.AddDef("ProductName", Gettype(String))
dtb.AddDef("ProductNumber", Gettype(Double))
dtb.AddDef("ProductPrice", Gettype(Double))
dtb.AddDef("ProductTotal", Gettype(Double),"ProductNumber * ProductTotal")
dtb.AddDef("MainMemoEx", Gettype(String))
dtb.AddDef("MainMemo", Gettype(String))
dtb.AddDef("SaleOK", Gettype(Integer))
Tables("新建销售单_sale_list").DataSource =dtb.BuildDataSource()
----------------
DataTableBuilder类型有一个AddDef方法,用于定义新增列的属性,可以一次性的指定新增列的名称、类型、标题、长度、表达式,AddDef的语法有六种,非常灵活:
AddDef(Name, Type)
AddDef(Name, Type, Expression)
AddDef(Name, Type, Expression,Caption)
AddDef(Name, Type, MaxLength)
AddDef(Name, Type, MaxLength,Expression)
AddDef(Name, Type, MaxLength,Expression,Caption)
Name: 字符型,指定列的名称
Type: Type类型,指定列的类型,用GetType函数获得指定的类型,例如:GetType(String),表示字符型
MaxLength: 整数型,指定字符列的长度
Expression: 字符型,指定计算表达式
Caption: 字符型,指定列标题