Dim frm As WinForm.Form= e.Form

Dim txt1 As String = frm.Controls("TextBox3") .value

Dim txt2 As String = frm.controls("DropBox1").value

Dim txt3 As String = frm.Controls("TextBox2").value

If txt1="" Then

    MessageBox.Show("无患者资料名称,无法保存患者资料!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

    Return

Else

    If txt2<>"" AndAlso txt3<>"" Then

        Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog

        If txt2="二维照片" Then

            dlg.Filter= "照片文件|*.bmp;*.gif;*.jpg;*.png;*.tif;*.wmf;*.tiff;*.pcx;*.tga;*.exif;*.fpx;*.svg;*.psd;*.cdr;*.pcd;*.dxf;*.ufo;*.eps;*.ai;*.raw" \'设置筛选器

        Else If  txt2="视频资料" Then

            dlg.Filter= "视频资料|*.avi;*.wmv;*.wmp;*.wm;*.asf;*.mpg;*.mpeg;*.mpe;*.m1v;*.m2v;*.mpv2;*.mp2v;*.dat;*.ts;*.tp;*.tpr;*.trp;*.vob;*.ifo;*.ogm;*.ogv;*.mp4;*.m4v;*.m4p;*.m4b;*.3gp;*.3gpp;*.3g2;*.3gp2;*.mkv;*.rm;*.ram;*.rmvb;*.rpm;*.flv;*.swf;*.mov;*.qt;*.amr;*.nsv;*.dpg;*.m2ts;*.m2t;*.mts;*.dvr-ms;*.k3g;*.skm;*.evo;*.nsr;*.amv;*.divx;*.webm;*.wtv;*.f4v" \'设置筛选器

        Else If txt2="音频资料" Then

            dlg.Filter= "音频资料|*.mp3;*.wav;*.wma;*.mpa;*.mp2;*.m1a;*.m2a;*.ogg;*.m4a;*.aac;*.mka;*.ra;*.flac;*.ape;*.mpc;*.Mod;*.ac3;*.eac3;*.dts;*.dtshd;*.wv;*.tak" \'设置筛选器

        Else If txt2="文本资料" Then

            If  txt3="文字资料" Then

                dlg.Filter= "文字资料|*.doc;*.txt;*.docx;*.docm" \'设置筛选器

            Else If txt3="PDF资料" Then

                dlg.Filter= "PDF资料|*.pdf" \'设置筛选器

            Else If txt3="表格资料" Then

                dlg.Filter= "表格资料|*.xls" \'设置筛选器

            End If

        End If

        If dlg.ShowDialog = DialogResult.OK Then

            Dim ext As String = dlg.FileName.SubString(dlg.FileName.LastIndexof(".") + 1) \'获得文件后缀名

            Dim txt4 As String = ProjectPath & "temp\\" & txt1 & "." & ext

            e.Form.controls("TextBox4").value=txt4

            If filesys.FileExists(txt4) Then

                Dim Result As DialogResult

                Result = MessageBox.Show("存在同名的辅助资料文件,覆盖它吗?","提醒!!",MessageBoxButtons.OKCancel, MessageBoxIcon.warning )

                If Result = DialogResult.Ok Then

                    filesys.CopyFile(dlg.FileName,txt4,True)                   

                Else

                    Return

                End If

            Else

                filesys.CopyFile(dlg.FileName,txt4)

            End If

            Tables("辅助资料录入_table2").save()

            Tables("辅助资料录入_table2").Refresh

        End If

    Else

        MessageBox.Show("无资料类型或资料亚类,无法确定您需添加的文件类型!!","提示!!",MessageBoxButtons.OK,MessageBoxIcon.Information)

        Return

    End If

End If