Dim f as New SaveFileDialog f.Filter = "Excel文件|*.Xls" If f.ShowDialog = DialogResult.Ok Then Dim ex as New Exporter ex.SourceTableName = "订单" ex.FilePath = f.FileName ex.Format = "Excel" ex.Fields = "日期,客户,数量,单价" ex.Filter = "[产品] = 'PD01'" ex.Export() End If
加好友 
发短信
Post By：2010/2/25 16:52:00 [显示全部帖子]
