Dim nf1 As Integer = e.Form.Controls("NF").value
Dim yf1 As Integer = e.Form.Controls("YF").value
Dim fl As String
Dim tm As String = ProjectPath & "Attachments\确认函.doc"
For Each r As Row In Tables("客户确认函_Table1")
If yf1 >=10 Then
fl = "C:\Users\Public\Documents\确认函\" & r("客户分属") & "\" & r("系统编号") & r("客户名称") & nf1 & yf1 & ".doc"
Else
fl = "C:\Users\Public\Documents\确认函\" & r("客户分属") & "\" & r("系统编号") & r("客户名称") & nf1 & "0" & yf1 & ".doc"
End If
Dim wrt As New WordReport(Tables("客户确认函_Table1"),tm,fl)
wrt.BuildOne(r)
wrt.Quit()
Next
批量导出保存，当r("客户分属")中的名称中有/这个斜杠时，保存的文件夹会拆分成两级，如r("客户分属")是ABC/EFG时，路径会变成C:\Users\Public\Documents\确认函\ABC\EFG
这个要怎么解决
加好友 
发短信
Post By：2023/8/21 18:54:00 [只看该作者]
