Dim idx As Integer = e.FileName.LastIndexOf(".")
Dim ext As String = e.FileName.SubString(idx)
msgbox(ext)
e.FileName = dr("收据编号") & dr("交款方") & dr("金额") & ext
加好友 
发短信
Post By：2017/6/20 14:34:00 [显示全部帖子]
