专家坐堂-[求助]窗口控件PictureBox1234显示第二列置顶的4行照片Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]窗口控件PictureBox1234显示第二列置顶的4行照片  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193226)

--  作者：185723664
--  发布时间：2024/8/28 11:02:00
--  [求助]窗口控件PictureBox1234显示第二列置顶的4行照片
窗口控件PictureBox1234显示第二列置顶的4行照片（表筛选行置顶的4行动态变化）

此主题相关图片如下：12.jpg
下载信息  [文件大小：   下载次数： ]
点击浏览该文件:12.foxdb

--  作者：有点蓝
--  发布时间：2024/8/28 11:21:00
--
第一行 tables("表A").rows(0)
第2行 tables("表A").rows(1)
……

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

--  作者：185723664
--  发布时间：2024/8/28 14:19:00
--  回复：（有点蓝）第一行 tables("表A").rows(0)第...

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:项目及图片.zip

蓝大师，下面是我写的代码，辛苦帮忙看看下面代码，怎么实现图片控件显示表置顶的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

--  作者：有点蓝
--  发布时间：2024/8/28 14:23:00
--

其它代码都去掉

表A_AfterFilter

Dim r As Row = Tables("表A").rows(0)
Forms("窗口1").Controls("PictureBox1").Image  = getimage(r("第二列"))

--  作者：y2287958
--  发布时间：2024/8/28 15:00:00
--

For i As Integer = 1 To 4
Dim 行 As Row = e.Table.Rows (i - 1)
If 行 IsNot Nothing Then
Dim 文本框 As WinForm.TextBox = Forms("窗口1").Controls("TextBox" & i)
If 文本框 IsNot Nothing Then
文本框.Text = 行("第一列")
End If

Dim 图片 As WinForm.PictureBox = Forms("窗口1").Controls("PictureBox" & i)
If 图片 IsNot Nothing Then
图片.Image = getimage(行("第二列"))
End If
End If
Next

--  作者：185723664
--  发布时间：2024/9/2 19:40:00
--  回复：（y2287958）For i As Integer = 1 To 4 ...
前辈高手，上面代码放在那个事件里面？

--  作者：有点蓝
--  发布时间：2024/9/2 20:04:00
--
表A_AfterFilter