AfterLoad事件如下:Dim cmd As New SQLCommand
Dim ds As DataTable
cmd.C
cmd.CommandText = "SELECT * Fr om {核价系统}"
ds = cmd.ExecuteReader(True)
Dim drt As DataTable = DataTables("核价系统_Table1")
Dim tbl As Table = Tables("核价系统_Table1")
tbl.DataSource = ds
窗口”核价系统“表“Table1” CurrentChanged 事件如下:
Dim pbx As WinForm.PictureBox = Forms("核价系统").Controls("PictureBox1")
If Tables("核价系统_Table1").Current Is Nothing Then
MessageBox.Show( "1")
pbx.Image = Nothing
Else
MessageBox.Show( "2")
pbx.Image = Tables("核价系统_Table1").Current.DataRow.SQlLoadImage("款式图片") '从后台提取照片并显示
End If
此主题相关图片如下:01.jpg
为什么不能显示二进制图片呢
[此贴子已经被作者于2020/3/1 0:50:41编辑过]