Case "附件"
If e.NewValue IsNot Nothing Then
Dim tx As String = e.NewValue
Dim tx1 As String '赋值斜杠前的字符
Dim tx2 As String '赋值文件后缀名
Dim xm As String '赋值文件新名称
Dim rq As Date '赋值单据日期
Dim ftp As new FTPClient
ftp = e.DataCol.FTPClient
If ftp.FileExists(e.NewValue) = True Then '如果文件已存在(已上传)
Dim a As DataRow = DataTables("物流发货记录").Find("_identify = " & e.DataRow("sys_物流内码") & "") ‘查找客户简称
If a IsNot Nothing Then
If Tables("物流发货记录_Table3").Rows.Count > 0 Then
rq = Tables("物流发货记录_Table3").Rows(0)("单据日期") ‘查找单据日期
End If
tx1 = tx.SubString(0,tx.LastIndexOf("/") + 1)
tx2 = tx.SubString(tx.LastIndexOf("."))
If e.DataRow.IsNull("单据号码") = False '如果不为空
xm = tx1 & a("单位简称") & "_" & e.DataRow("单据号码") & "_" & rq & tx2 ‘单据号码命名
Else
xm = tx1 & a("单位简称") & "_" & e.DataRow("fa piao号码") & tx2 ‘fa piao号码命名
End If
'MessageBox.Show("改名:" & xm)
If ftp.Rename(e.NewValue,xm) = True Then '如果改名成功
e.NewValue = xm
Else
MessageBox.Show(e.DataRow("单据号码") & e.DataRow("fa piao号码") & " 变更附件名称失败!")
End If
Else
MessageBox.Show("未找到公司简称!")
End If
End If
Else
'删除附件
Dim ftp As new FTPClient
ftp = e.DataCol.FTPClient
If ftp.FileExists(e.DataRow(e.DataCol.Name)) = True Then '如果文件存在
If ftp.DeleteFile(e.DataRow(e.DataCol.Name)) = False '删除文件
MessageBox.Show(e.DataTable.Name & " 表 " & e.DataRow("单据号码") & e.DataRow("fa piao号码") & "附件文件删除失败!")
End If
End If
End If
加好友 
发短信
Post By：2021/11/19 17:34:00 [只看该作者]
