以下是引用gryy在2017/9/14 16:17:00的发言：
报错应该是在图片管理器增加的时候，e.DataRow("正面") 是空的，pth只有路径，没有具体的文件名，FileSys.RenameFile就改不了，这个该如何操作呢
修改代码
Dim ml As String = Tables("设置").Current("默认目录")
Dim dr As DataRow = e.DataRow
Dim dm As String = trim(dr("简码"))
Dim cpph As String = trim(dr("产品批号"))
If e.DataCol.name = "正面" Then
Dim pth As String = ml & e.DataRow("正面")
If FileSys.FileExists(pth) Then
FileSys.RenameFile(pth,dm & cpph &".jpg")
End If
Else
If e.DataCol.name = "反面" Then
Dim pth As String = ml & e.DataRow("反面")
If FileSys.FileExists(pth) Then
FileSys.RenameFile(pth,dm & cpph &"-1.jpg")
End If
End If
End If
加好友 
发短信
Post By：2017/9/14 15:13:00 [显示全部帖子]
