[求助]跨引用自动编码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]跨引用自动编码

共有2785人关注过本帖树形打印复制链接主题：[求助]跨引用自动编码

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/9/22 10:19:00 [显示全部帖子]

            Dim d1 As String
            d1 = e.DataRow("产品类目")
            a3 = dr("产品类目") & "ID"
            de = DataTables("产品编码").find( d1 & " = '"& e.datarow("产品简称")&"'")
            If de IsNot Nothing Then '如果找到, 则设置各列内容
                a4 = de(a3)
            End If
            If dr.Isnull("大小") Then
                dr("产品ID") =Nothing
            End If
            MessageBox.show(a4)

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/9/22 10:35:00 [显示全部帖子]

看一下字符串的连接，动态改变的不要写在双引号里面

http://www.foxtable.com/help/topics/0221.htm

下一主题 >> << 上一主题

主题：[求助]跨引用自动编码