下载信息  [文件大小：   下载次数： ]

点击浏览该文件:订单.table

请老师看看，如果在订单表上输入产品型号，就会自动显示出，品名，型号，规格，为什么我按帮助的代码不行呢

If e.DataCol.Name = "产品编号" Then \'发生变化的是产品编号吗?
    \'在产品表找出该产品
    Dim dr As DataRow
    dr = DataTables("产品信息").Find("产品编号 = \'" & e.DataRow("产品编号") & "\'" )
    If dr IsNot Nothing  \'如果找到, 则设置各列内容
        e.DataRow("品名")= dr("品名")
        e.DataRow("型号")= dr("型号")
        e.DataRow("规格")= dr("规格")
    End If
End If

下次提问时，现将明显的 字段 错误，处理好！！

合成表达式有错，这样才对 ("产品编号 = \'" & e.DataRow("产品编号") & "\'"）

老师，可以在我上传的文件帮我弄一下吗

老师，为什么我在订单表上输入产品编号了，还是没法自动出现，品名，型号，规格呢

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:订单2.table

老师请再看一下，为什么我把代码放进去，在订单表输入产品编号，没法显示出品名，型号，规格呢

老师，我真是搞不懂，我的步骤是

在订单表上的产品编号第一行后选择表属性-事件-Datacolchanged 后 输入一下的代码后按确定-再按确定。

然后就在订单表上的产品编号那行输入产品编号后可是还是没有显示，品名，型号，规格。

不知是不是这步骤哪里出错了，还是什么地方没有设置。

请老师在帮我看看

If e.DataCol.Name = "产品编号" Then \'发生变化的是产品编号吗?
    \'在产品表找出该产品
    Dim dr As DataRow
    dr = DataTables("产品信息").Find("产品编号 = \'" & e.DataRow("产品编号") & "\'" )
    If dr IsNot Nothing  \'如果找到, 则设置各列内容
        e.DataRow("品名")= dr("品名")
        e.DataRow("型号")= dr("型号")
        e.DataRow("规格")= dr("规格")
    End If
End If