Foxtable(狐表)用户栏目专家坐堂 → 一列中自动填充部分数据问题


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

主题:一列中自动填充部分数据问题

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


加好友 发短信
等级:婴狐 帖子:68 积分:527 威望:0 精华:0 注册:2016/7/15 23:57:00
一列中自动填充部分数据问题  发帖心情 Post By:2016/9/2 20:57:00 [只看该作者]

      在“F346”列中,其数据都是从数据库中读到的,如某一单元格为“P60902-185102$3cecfe9d$c7f0fabe-07b6-4a5c-a110-e9b48cba0852.jpg”(都是这样类型的),现在我希望在这一横前面自动填充“http://jcpt.jy100.com/FilesDB/common/”变成“http://jcpt.jy100.com/FilesDB/common/P60902-185102$3cecfe9d$c7f0fabe-07b6-4a5c-a110-e9b48cba0852.jpg”再把这列扩展类型改为网址,这样就可以跳转到网络上看图片。
     但在前面自动填充“http://jcpt.jy100.com/FilesDB/common/”不会弄,不能用表达式列,因为表达式列扩展为网站后无效,而且填充是只填充一次,希望每次有新数据后都自动填充。
我用下面的代码:(知道不对,会不断的填充,但不知怎么判断该单元格中如果包含了http://jcpt.jy100.com/FilesDB/common/就不要再次填充)
Dim p As String = Nothing
For Each r As Row In Tables("T37").Rows
    If r("F346") > "" Then
        r("F346") = "http://jcpt.jy100.com/FilesDB/common/" + r("F346")
    End If
Next


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


加好友 发短信
等级:二尾狐 帖子:574 积分:4264 威望:0 精华:0 注册:2015/5/13 8:32:00
  发帖心情 Post By:2016/9/3 8:54:00 [只看该作者]

可以判断 该单元格的长度,如果长度大于多少就不填充,小于多少就填充

 回到顶部
帅哥,在线噢!
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47511 积分:251479 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2016/9/3 9:04:00 [只看该作者]

Dim p As String = "http://jcpt.jy100.com/FilesDB/common/"
For Each r As Row In Tables("T37").Rows
    If r("F346") > "" andalso r("F346").Indexof(p)<0 Then
        r("F346") = p + r("F346")
    End If
Next
Tables("T37").Save()
 
相关:
 
[此贴子已经被作者于2016/9/3 9:04:43编辑过]

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


加好友 发短信
等级:婴狐 帖子:68 积分:527 威望:0 精华:0 注册:2016/7/15 23:57:00
  发帖心情 Post By:2016/9/3 9:51:00 [只看该作者]

多谢  多谢  解决了

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


加好友 发短信
等级:婴狐 帖子:68 积分:527 威望:0 精华:0 注册:2016/7/15 23:57:00
  发帖心情 Post By:2016/9/3 9:51:00 [只看该作者]

多谢  多谢  解决了

 回到顶部