1、现有一张表“A”和表“B”，两张表通过表中的[ZL]列进行关联，生成了新表“C”
2、创建窗口，建立表窗口绑定表“A”，创建记录窗口绑定表“C”的[ZL]列
3、当选择A表的某一行是，记录窗口同时显示C表的相关[ZL]列等信息
4、创建控件picturebox，关联表“C”的[ZL]列，并以最顶端方式放置在记录窗口控件的上面，大小与记录窗口相同
需求：
当选择表“A”的某一行是，同时记录窗口中正常显示绑定列[ZL]的信息
如此信息的内容为空，则picturebox控件显示，并getimage=图1.png，图片来源于项目image文件夹，否则隐藏图片控件不显示图片，正常显示记录窗口及内容
测试：
在表“C”的表事件currendchanged事件中写入如下代码
Dim r As Row = Tables("C").Current
If Forms("窗口").Opened Then
Dim pbx As WinForm.PictureBox = Forms("窗口").Controls("picturebox1")
If r IsNot Nothing Then
If r("ZL") = "开发中" Then
pbx.Image = getimage("图1.png") '显示图片
e.Form.Controls("picturebox1").Visible = True
Else
pbx.Image = Nothing '不显示图片
e.Form.Controls("picturebox1").Visible = False
End If
Else
pbx.Image = Nothing '不显示图片
e.Form.Controls("picturebox1").Visible = False
End If
End If
测试不成功，后将代码移至PositionChanged （选择不同行后执行），问题依旧
请教改如何修改实现？
[此贴子已经被作者于2015/9/28 10:17:21编辑过]
加好友 
发短信
Post By：2015/9/26 17:07:00 [只看该作者]
