主题：[求助]窗口控件PictureBox1234显示第二列置顶的4行照片

第2行 tables("表A").rows(1)

……

每次筛选后，重新给控件赋值

蓝大师，下面是我写的代码，辛苦帮忙看看下面代码，怎么实现图片控件显示表置顶的4行

 

表A_AfterFilter

 

If Forms("窗口1").Opened Then '如果窗口已经打开

    Dim pbx As WinForm.PictureBox = Forms("窗口1").Controls("PictureBox1")

    If Tables("表A").Current Is Nothing Or Tables("表A").rows(0) Is Nothing Then

        pbx.Image = Nothing

    Else   

        Dim r As Row = Tables("表A").Current(0)

        pbx.Image = Tables("表A").Current.DataRow.SQlLoadImage("r")

        Forms("窗口1").Controls("TextBox1").Value = Tables("表A").Current(0)

    End If

End If

 

 

窗口1_AfterLoad

 

Dim r As Row = Tables("表A").rows(0)

e.Form.Controls("TextBox1").Value = r("第一列")

 

Dim ra As Row = Tables("表A").rows(1)

e.Form.Controls("TextBox2").Value = ra("第一列")

 

Dim rb As Row = Tables("表A").rows(2)

e.Form.Controls("TextBox3").Value = rb("第一列")

 

Dim rc As Row = Tables("表A").rows(3)

e.Form.Controls("TextBox4").Value = rc("第一列")

 

窗口1_PictureBox1_BeforeGetImage

 

Dim r As Row = Tables("表A").rows(0)

'e.Form.Controls("TextBox1").Value = r("第一列")

Dim pbx As WinForm.PictureBox = e.Sender

'Dim r As Row = Tables("表A").Current

If r IsNot Nothing Then

    If r.IsNull("第二列") = True Then

    Else

        '        Dim s As String = Tables("表A").rows(0)

        e.File = r("第二列")

    End If

End If