注意红色部分与你代码的不同
Dim aa As string
aa = e.Form.Controls("ComboBox1").Value
if aa = "" then
MessageBox.Show("你未选择需要下发数据的单位,选择单位以后才能生成下发数据!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
Return '终止代码的执行
Else
Dim ex as New Exporter
ex.SourceTableName = "调资基础数据" '指定导出表
ex.Filter = "[单位名称] = '" & aa & "'" '指定导出条件
ex.Format = "Access" '指定导出文件格式
ex. PassWord = “TZX_GWY_JT_8888” '用此属性指定目标文件的密码
ex.filepath = dlg.filename '指定目标文件
ex.NewTableName = "调资基础数据" '指定导出后的表的名称
ex.Export() '开始导出数据
MessageBox.Show( "下发" & aa & "单位数据生成完成!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
[此贴子已经被作者于2009-7-27 11:14:36编辑过]
加好友 
发短信
Post By：2009/7/27 11:13:00 [显示全部帖子]
