|
Select Case e.DataCol.Name
Case "商品信息_文件夹路径名", "商品信息_文件地址", "商品信息_文件夹名"
Dim newstr As String = ProjectPath.Chars(0) & ":\各个狐表系统\速卖通文件管理系统\商品库\" & e.DataRow("商品信息_文件夹路径名") & "\contentPic\" & e.DataRow("商品信息_文件夹名")
e.DataRow("商品信息_文件地址") = newstr
e.DataRow("速卖通档案_尺寸图片") = newstr
Case "商品信息_文件地址"
e.DataRow("商品信息_文件地址") = e.DataRow("商品信息_文件地址").Replace(e.OldValue, e.NewValue)
Case "速卖通档案_尺寸图片"
e.DataRow("速卖通档案_尺寸图片") = e.DataRow("速卖通档案_尺寸图片").Replace(e.OldValue, e.NewValue)
End Select
|
加好友 
发短信
Post By：2014/5/19 20:06:00 [只看该作者]
