Foxtable(狐表)用户栏目专家坐堂 → 加一列显示U盘名称


  共有3168人关注过本帖树形打印复制链接

主题:加一列显示U盘名称

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/5/19 20:06:00 [显示全部帖子]

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/5/19 20:29:00 [显示全部帖子]

 无法理解你的意思,是说我给你的例子你自己编写代码的时候,无效?

 

 如果是这样,你去看看 afteropenproject 里面的代码,看我是怎么写的。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/5/19 20:48:00 [显示全部帖子]

 我之前不是给你写过了么?你找一下那个例子,看afteropenproject的代码。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/5/19 20:49:00 [显示全部帖子]


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/5/19 22:11:00 [显示全部帖子]

 不理解你的意思啊,改不改,得看你 速卖通档案_尺寸图片 是否对应newstr。

 

 上传例子吧,


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/5/19 23:01:00 [显示全部帖子]

 试试这样改

 

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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/5/20 14:29:00 [显示全部帖子]

 不行是因为你自己不会改,别人该做的,都帮你做了,你自己不会改着用是你自己的问题。

 

 最后的问题,不会帮你解答了,你先去看帮助文档半个月,把相关的知识弄透了,再说。

 

 关于这个项目的功能性的问题,不会再为你解答。


 回到顶部