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

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

 

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

 

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

 

 

 

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

 

 If Forms("资源主窗体").opened Then
    Dim pbx As WinForm.listBox = Forms("资源主窗体").Controls("listBox1")
    If Tables("资源主表").Current Is Nothing Then
        pbx.combolist =""
    Else
        pbx.combolist =DataTables("资源附件").SQLGetComboListString("附件名称","资源编码='" & Tables("资源主表").Current("资源编码") & "' ")
    End If
End If

 

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

 

 

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

 

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

 

 

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

 ListBox里面的事件，Find要改成SqlFind

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

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

 

 看5楼

有点甜老师

我想扩展一下

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

 

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

 不难啊，直接给webbrowser赋值路径即可啊

 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