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

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

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

test321

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

加好友

发短信

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

图片的自动显示 发帖心情

Post By：2013/12/10 14:13:00 [只看该作者]

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

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

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/12/10 14:15:00 [只看该作者]

自动为图片列赋值即可,假如原本该图片是存在某产品的图片列的

e.datarow("图片")=dr("图片") 即可' DR为该产品的图片列

实在不会可以上个例子.

test321

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

加好友

发短信

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

Post By：2013/12/10 14:18:00 [只看该作者]

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

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/12/10 14:20:00 [只看该作者]

怎么样都可以,只要你确定图片来源.

我这个只是假设图片来源是在这里而已.

test321

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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