专家坐堂-为什么这种文件后缀上传不了Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim nm As String = e.Form.Controls("CmbZLMC").Value

If Tables("招标信息").Current("系统编号") = Nothing Then

MessageBox.Show("请先输入""咨询类型""和""开标时间""!")

Return

Else

Dim ndr As Row = Tables("招标信息.资料明细").AddNew()

If ndr.DataRow.RowState = DataRowState.Added Then \'如果是新增行,必须先保存才能插入文件

ndr.Save()

End If

Dim fdr As DataRow = DataTables("招标信息").Find("系统编号 = \'" & ndr("系统编号") & "\'")

If fdr IsNot Nothing Then

If nm = "" Then

MessageBox.Show("请先输入资料名称!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

Else

Dim dlg As New OpenFileDialog

dlg.Filter = "资料文件|*.doc;*.docx;*.xls;*.xlsx;*.png;*.dwg;*.pdf;*.jpg;*.zip;*.rar;*.HzTbs"

If dlg.ShowDialog = DialogResult.OK Then

Dim flnm As String = dlg.FileName \'要添加的文件名

Dim hz As String = flnm.SubString(flnm.LastIndexOf(".")) \'提取文件的后缀名

\'\'==============图像本地保存===============

Dim pth As String = ProjectPath & "Attachments\\用户工程\\" & fdr("咨询类型") & "\\" & fdr("系统编号").SubString(4,4) & "\\" & fdr("系统编号") & fdr("项目名称") & "\\"

If FileSys.DirectoryExists(pth) = False Then \'判断指定的目录是否存在

FileSys.CreateDirectory(pth) \'创建目录

End If

Dim max As String

Dim idx As Integer

max = Tables("招标信息.资料明细").Compute("Max(资料名称)","资料名称 like \'" & nm & "%\'")

If max > "" Then \'如果存在最大编号

idx = CInt(max.SubString(max.LastIndexOf(".") - 2,2)) + 1

Else

idx = 1 \'否则顺序号等于1

End If

Dim flt As String = pth & nm & Format(idx,"00") & hz \'重新命名文件名

FileSys.CopyFile(flnm,flt,True) \'复制文件并重新命名文件名

ndr("资料名称") = nm & Format(idx,"00") & hz \'写入资料文件名称

\'ndr.DataRow.SQLInsertFile("附件",flt) \'插入文件

\'ndr.DataRow.SQLSetValue("CRC", CRCCheckFile(flt)) \'保存crc检验值

End If