主题：存储地址错误

 路径写错了啊 file =  "D:\文件检索图\"  & e.NewValue

 1、你的缩略图列的列属性的存放路径要设置成 D:\文件检索图\

 

 2、你自己去确认一下缩略图是否有生成啊

1、加入代码 msgbox(e.DataTable.DataCols("缩略图").defaultfolder)

 

2、加入代码 msgbox(file) 、 msgbox(e.newvalue)

 

对比结果。

那就有问题啊，根本就不是D盘的路径

 

msgbox(e.DataTable.DataCols("缩略图").defaultfolder)

 那代码就不可能有错，你做个简单的会出错的例子发上来测试。

 你根本就没有给Vars("ip2")赋值

 

If e.DataCol.Name = "产品效果图" Then
    If e.NewValue <> Nothing Then
        Dim file As String = ProjectPath & "Attachments\" & e.NewValue
        If FileSys.FileExists(file) Then
            Dim img As image = getImage(file)
            Dim bmp As new bitmap(getImage(file), img.width / 5, img.height / 5)
            'file =  "D:\文件检索图\"  & e.NewValue
            file =  "D:\文件检索图\"  & e.NewValue
            Dim path As String = file.Replace(FileSys.GetName(file),"")
            If FileSys.DirectoryExists(path) = False Then '如果目录C:\MyFolder存在
                FileSys.CreateDirectory(path)
            End If
            bmp.save(file)
           
            bmp.Dispose
        End If
        e.DataRow("缩略图") = e.NewValue
    End If
End If