标题：[求助]窗口控件PictureBox1234显示第二列置顶的4行照片
此主题相关图片如下：12.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:项目及图片.zip |
表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