Else Dim dt As New DataTableBuilder("前计划未送临时表") dt.AddDef("计划日期", Gettype(Date)) dt.AddDef("中标号或编号", Gettype(String),12) dt.AddDef("通用名称", Gettype(String), 50) dt.AddDef("规格型号", Gettype(String), 50) dt.AddDef("生产企业", Gettype(String), 50) dt.AddDef("单位", Gettype(String), 6) dt.addDef("相差辅助列", Gettype(Integer)) dt.addDef("配送公司", Gettype(String), 30) ‘’dt.build() ‘去掉’ e.Form.controls("Table3").DataSource =dt.buildDataSource() End If
|