老师好!
我做的代码,保存后,多出了我不想要的前缀:bmp\
我想要的是:XS1812190451_2收款_.bmp
可是,却是这样的:bmp\XS1812190451_2收款_.bmp
我百思不得其解。
请老师帮忙分析一下,下面的代码,错误在哪儿?
麻烦老师了!
谢谢!
''判断图片文件后缀,然后保存相同的后缀
Dim dr As DataRow = e.DataRow
If dr.IsNull("FBILLNO") Then
MessageBox.Show("请先输入销售出库单号!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
Else
Dim ext As String
ext = e.FileName.SubString(e.FileName.LastIndexof(".") + 1) '获得文件后缀名
Select Case ext
Case "bmp","gif","jpg","png","tif", "wmf" ''判断图片文件后缀,然后保存相同的后缀
e.SubFolder = ext
If e.DataCol.name = "F_PAEZ_TEXT25" Then '获取文件个数
Dim fls As List(of String)
fls = e.DataRow.Lines("F_PAEZ_TEXT25") '获取文件个数+1 fls.Count + 1
e.FileName = dr("FBILLNO") & "_" & fls.Count + 1 & "收款_" & "."& ext ''判断图片文件后缀,然后保存相同的后缀
End If
''判断图片文件后缀,然后保存相同的后缀
If e.DataCol.name = "F_PAEZ_TEXT251" Then '获取文件个数
Dim fls As List(of String)
fls = e.DataRow.Lines("F_PAEZ_TEXT251") '获取文件个数+1 fls.Count + 1
e.FileName = dr("FBILLNO") & "出货单_" & fls.Count + 1 & "_" & "."& ext ''判断图片文件后缀,然后保存相同的后缀
End If
End Select
End If