假如我添加的内容中包含，IMG或者Img_ then

把他们替换为0 应该怎么做呢？

If e.DataCol.name="ppp" AndAlso Tables("商品").Current IsNot Nothing Then
Dim s As String = Tables("商品").Current("ppp")
Dim d As Date = e.DataRow("addtime")
Dim bh As String = Format(D,"MMddhhmm")
Dim bh1 As String = Format(D,"yyMMdd") 
   If s > "" Then
        s=filesys.GetName(s)  \'得到的是 asss.jpg

  if s 包含 img or 或者 img_ then

      将他们替换为0 
      \' e.DataRow("tao") = s.SubString(0,s.LastIndexOf(".")) & ":1:0:|;"
        e.DataRow("tao1") = s.SubString(0,s.LastIndexOf("."))
        e.DataRow("cn_name")= bh & e.DataRow("tao1")          
        e.DataRow("taobao")=e.DataRow("tao1") & ":1:0:|;"
        e.DataRow("bh1")= bh1

End If