图片的自动显示 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 图片的自动显示

共有4210人关注过本帖树形打印复制链接主题：图片的自动显示

test321

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：148 积分：968 威望：0 精华：0 注册：2013/11/30 12:30:00

图片的自动显示 发帖心情

Post By：2013/12/10 14:13:00 [显示全部帖子]

当我新增明细选择产品编号之后图片浏览器自动显示此编号说对应的产品图片怎么做呢？
图片点击可在新窗口打开查看

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

test321

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：148 积分：968 威望：0 精华：0 注册：2013/11/30 12:30:00

Post By：2013/12/10 14:18:00 [显示全部帖子]

那是要在明细表里面也要建一个图片列了吧如果不建立图片列的话能不能够实现这种功能

test321

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：148 积分：968 威望：0 精华：0 注册：2013/11/30 12:30:00

Post By：2013/12/10 14:25:00 [显示全部帖子]

If e.DataCol.Name = "产品编号" Then
    Dim dr As DataRow
    dr = DataTables("产品资料").Find("[产品编号] = '" & e.DataRow("产品编号") & "'")
    If dr IsNot Nothing Then
        e.DataRow("产品名称") = dr("中文品名")
        e.DataRow("型号规格") = dr("产品规格")
        e.DataRow("计量单位") = dr("计量单位")
        e.DataRow("产品图片") = dr("产品图片")

    Else
        e.DataRow("产品名称") = Nothing
        e.DataRow("型号规格") = Nothing
        e.DataRow("计量单位") = Nothing
        e.DataRow("产品图片") = Nothing

    End If
End If