求助：双击或者单击主表，关联表不显示对应数据！

当点新增加附件后，又可以显示所有数据！

求纠正双击或者单击主表，关联表显示对应数据，同时当选择下一行记录时候，关联表对应数据进行刷新，和附件显示框清零处理

此主题相关图片如下：qq图片20141117211948.jpg

明白了  谢谢有点甜老师 原来是表名弄错了

现在新的问题出现了 资源附件遇见是图片的时候 点图片右边会显示当前图片

但是附件行焦点不对了  点打开附件不会打开 提示请选择附件

 同时，你的窗口的全局事件Click不要写代码啊。

谢谢有点甜老师 还真是代码出问题了

有点甜老师

我想扩展一下

想把那图片框显示框换成网页浏览器来显示

不知道是否可以显示附件中的图片和WORD、TEXT文档不呢？

 Dim dt As DataRow = DataTables("资源附件").SQLFind("附件名称=\'" & e.Sender.SelectedItem & "\' and 资源编码=\'" & Tables("资源主表").Current("资源编码") & "\'")

Dim fj As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
    fj.Address = dt.SQloadFile("附件内容")

代码运行效果如下：

此主题相关图片如下：qq图片20141117224106.jpg

求纠正下面代码为网页浏览器预览 让所有类型的附件都可以砸网页浏览器中预览

Dim pbx As WinForm.PictureBox = Forms("资源主窗体").Controls("PictureBox1")
If e.Sender.ComboList = ""
    Return
End If
If Tables("资源主表").Current Is Nothing Then
    pbx.Image = Nothing
Else
    \'  判断选择的是不是  图片格式,如果不是  则不执行代码   
    Dim dt As DataRow = DataTables("资源附件").SQLFind("附件名称=\'" & e.Sender.SelectedItem & "\' and 资源编码=\'" & Tables("资源主表").Current("资源编码") & "\'")   
    If dt IsNot Nothing \'必须要判断不然  报错
        Dim nm() As String = e.Sender.SelectedItem.split(".")
        Dim tpjh As String = "bmp,jpg,png,gif"
        If tpjh.Contains(nm(nm.Length-1)) Then \'如果是图片格式则显示           
            pbx.Image = dt.SQlLoadImage("附件内容") \'从后台提取照片并显示
        Else
            pbx.Image = Nothing
        End If
    End If
End If