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

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

 

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

 

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

 

 

 

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

 

 

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

 

 

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

 

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

 

 

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

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

 

有点甜老师

我想扩展一下

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

 

不知道是否可以显示附件中的图片和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

谢谢有点甜老师  添加如下代码进行解决

 

 

添加如下代码：（问题解决）

 Dim lbx As WinForm.ListBox = e.Form.Controls("ListBox1")
Dim dr As DataRow = DataTables("资源附件").Find("附件名称='" & lbx.SelectedItem & "' and 资源编码='" & Tables("资源主表").Current("资源编码") & "'")
Dim fl As String =  ProjectPath & "附件\" & lbx.SelectedItem
Dim fj As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
If dr.SQLLoadFile("附件内容",fl) Then '如果提取文件成功
    fj.Address = fl
End If

 

 

新问题出现

当附件是WORD文件的时候会提示一个弹出对话框 询问是打开还是保存  当点打开后 再在网页浏览器中显示

感觉十分不便

求纠正为不提示是否保存还是打开  而是 直接显示