在“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