标题：如何判断变量取的是空值？谢谢

Dim dlg As New SaveFileDialog   '指定一个新的SaveFileDialog
dlg.Filter= "下发文件|*.XF"   '设置筛选器
dlg.OverwritePrompt = True  '对于已经存在的文件名，是否出现覆盖警告

If dlg.ShowDialog = DialogResult.Ok Then   '如果用户单击了确定按钮

If FileSys.FileExists(dlg.filename) Then    '如果指定的文件存在
    FileSys.DeleteFile(dlg.filename,2,2)     '则彻底删除之
    End If
   Dim aa As string

aa = e.Form.Controls("单位名称").Value

if aa =  " " then

 MessageBox.Show("你未选择需要下发数据的单位，选择单位以后才能生成下发数据!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)

Return       '终止代码的执行

End If

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

if aa =  " " then

 MessageBox.Show("你未选择需要下发数据的单位，选择单位以后才能生成下发数据!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)

Return       '终止代码的执行