请问当rs.fields("photo")(rs是一个记录集)是一个image类型的对象时，我如何将它放在Grid里

Question

set flexgrid1.datasource=rs就可以了

Answer 1

先把image的内容变成为文件
然后用
   MSHFlexGrid1.Row = 1
   MSHFlexGrid1.Col = 1
   Set MSHFlexGrid1.CellPicture = _
   LoadPicture("Icons\Computer\Trash02a.ico")
来显示image的内容,不过一般来说会影响速度,不建议使用!

Answer 2

请问 newyon() ，如何将image转换成文件呀
谢谢

Answer 3

Public Function ReadByteFile( _
                ByVal strFile As String) As Variant
Dim byteFile() As Byte
  Open strFile For Binary As #1
  If (LOF(1) = 0) Then
    Close #1
    ReadByteFile = 0
    Exit Function
  End If
  ReDim byteFile(LOF(1))
  Get #1, 1, byteFile
  Close #1
  ReadByteFile = byteFile
End Function直接把这个函数的返回值保存到字段中就行了！

Answer 4

搞错了，
这个才对Public sub CreateFile(ByRef bFile() As Byte,byval strFile as string) 
On Error GoTo Err1  Open strFile For Binary As #1
  Put #1, , bFile
  Close #1
Err1:
End sub