试试这样改
Select Case e.DataCol.Name
Case "商品信息_文件夹路径名", "商品信息_文件夹名"
Dim newstr As String = ProjectPath.Chars(0) & ":\各个狐表系统\速卖通文件管理系统\商品库\" & e.DataRow("商品信息_文件夹路径名") & "\contentPic\" & e.DataRow("商品信息_文件夹名")
e.DataRow("商品信息_文件地址") = newstr
Case "商品信息_文件地址"
e.DataRow("速卖通档案_尺寸图片") = e.DataRow("商品信息_文件地址") & "\" & FileSys.GetName(e.DataRow("速卖通档案_尺寸图片"))
End Select
[此贴子已经被作者于2014-5-19 23:00:45编辑过]