主题：这样写报错.

Dim qd As String
Dim dr As DataRow = DataTables("附件").SQLFind("编号 = '001' And CONVERT (VARCHAR (100),操作时间, 23 ) = '2015-06-03 10:48:49'")
qd = dr.SQLGetValue("附件内容")
Dim pbx As WinForm.PictureBox = e.Form.Controls("PictureBox1")
pbx.ImageFile =qd

这样写怎么读取不到附件表中的附件内容呢,空际上附件内容是有值的.

1、直接获取 qd = dr("附件内容")

 

弹出来看看 msgbox(qd)

 

2、你附件内容存放的是什么值？

 

附件内容存放的是网址链接.

 

Dim qd As String Dim dr As DataRow = DataTables("附件").SQLFind("编号 = '001' And CONVERT (VARCHAR (100),操作时间, 23 ) = '2015-06-03 10:48:49'") qd = dr("附件内容")  msgbox(qd) 还是报同样的错,未将对象引用设置到对象的实例。

没有查找到对应的值，你的查询条件有问题

 

Dim dr As DataRow = DataTables("附件").SQLFind("编号 = '001' And CONVERT (VARCHAR (100),操作时间, 23 ) = '2015-06-03 10:48:49'")

 

http://www.w3school.com.cn/sql/func_convert.asp

 

S elect CONVERT(varchar(100), GETDATE(), 20)   ' 2006-05-16 10:57:47
时间也没问题啊,数据库中存储的就是这样的时间格式.

 

Dim qd As String
Dim dr As DataRow = DataTables("附件").SQLFind("编号 = '001' And CONVERT (VARCHAR (100),操作时间,20) = '2015-06-03 10:48:49'")

If dr IsNot Nothing Then
    qd = dr("附件内容")
    msgbox(qd)
    Dim pbx As WinForm.PictureBox = e.Form.Controls("PictureBox1")
    pbx.ImageFile =qd
Else
    msgbox("没找到")
End If

果然是没找到,确定是时间格式问题.已解决,谢谢!