主题：如何用代码向图片列中添加多个图片？(已解决)

我把代码改了下，

Dim r As Row = Tables("表A").Current
Dim s As String = e.Name
If r.isnull("图片") Then
    r("图片") = s
    r("名称") = s
Else
    Tables("表A").AddNew
    Dim d As Row = Tables("表A").Current
    d("图片") = s
    d("名称") = s
End If

现在名称列可以自动生成，但是名称后面有个.jpg.请问下怎么去掉？

此主题相关图片如下：y2qmbgd@~dq9u_yggq`}hnl.jpg

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

谢谢，这么简单啊，我写了一大堆才弄出来。

Dim r As Row = Tables("产品").Current
Dim s As String = e.Name
Dim a As String = s.TrimEnd("G","P","J",".","g","p","j")
If r.isnull("图片") Then
    r("图片") = s
    r("花色") = a
Else
    Tables("产品").AddNew
    Dim d As Row = Tables("产品").Current
    d("图片") = s
    d("花色") = a
 End If