| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 一列中自动填充部分数据问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89998) |
| -- 作者：哎you -- 发布时间：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 -- 发布时间：2016/9/3 8:54:00 -- 可以判断 该单元格的长度，如果长度大于多少就不填充，小于多少就填充 |
| -- 作者：狐狸爸爸 -- 发布时间：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 -- 发布时间：2016/9/3 9:51:00 -- 多谢 多谢 解决了 |
| -- 作者：哎you -- 发布时间：2016/9/3 9:51:00 -- 多谢 多谢 解决了 |