Question

我在VB 6中使用数据报告并尝试显示数据库中的图像。它检索图像，但显示所有输出的相同图像我正在使用的代码如下所示

Dim rs As ADODB.Recordset, rs1 As ADODB.Recordset

Dim a As String
k = 0
i = 0
j = 0
k = 0



Set rs = New ADODB.Recordset

With rs

    .CursorType = adOpenDynamic
    .LockType = adLockOptimistic
    .ActiveConnection = conn
    .Source = "SELECT patientid FROM Inpatients_Maintenance WHERE (ModDate >= '" & frmDate & "') AND (ModDate <= '" & endDate & "')"
    .CursorLocation = adUseClient
    .Open

    Do Until rs.EOF

    If (rs.EOF = False And rs.BOF = False) Then
    pid(i) = rs.Fields(0).Value

    End If
    i = i + 1
    rs.MoveNext

    Loop
End With

Set rs = Nothing
Set rs1 = New ADODB.Recordset

Dim id As String
With rs1
    .CursorType = adOpenDynamic
    .LockType = adLockOptimistic
    .ActiveConnection = conn

    For j = 0 To i - 1
        id = pid(j)
       .Source = "Select photo from patientImage where patientid='" & id & "'"
       .CursorLocation = adUseClient
       .Open


        If (rs1.EOF = False And rs1.BOF = False) Then
            p(j) = App.Path + "\patients\" + rs1.Fields(0).Value
            a = p(j)

            Set RptInpatientMaster.Sections("Section1").Controls("Image2").Picture = LoadPicture(a)

        End If
        .Close
    Next j
End With

Answer 1

你只看到最后一个吗？

Set RptInpatientMaster.Sections("Section1").Controls("Image2").Picture = LoadPicture(a)

你总是在报告中引用相同的图片，不是吗？

VB 6.0中的数据报告

1 个答案: