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
End If
End If
End If
加好友 
发短信
Post By：2023/9/28 15:13:00 [显示全部帖子]
此主题相关图片如下：5566.jpg
