-- 作者:飞鱼
-- 发布时间:2010/9/29 13:02:00
--
Dim dtb As New DataTableBuilder("搜索结果") dtb.AddDef("产品名称", Gettype(String), 16) dtb.AddDef("capacity", Gettype(String), 16) dtb.AddDef("Replacement For", Gettype(String), 50) dtb.AddDef("Fit Machine Models", Gettype(String), 100) dtb.Build() Tables("搜索结果").Visible = True
.......
drs=Datatables("BPB量产电池").SELECT(filter2)
Dim f As new filler f.SourceTable=drs
f.SourceCols="产品名称,capacity,Replacement For,Fit Machine Models"
f.Datatable = Datatables("搜索结果") f.Fill()
用上面这个代码,SELECT,搞不定.请楼上的朋友帮看看.
|