Foxtable(狐表)用户栏目专家坐堂 → [求助]自动输入问题


  共有2665人关注过本帖树形打印复制链接

主题:[求助]自动输入问题

帅哥哟,离线,有人找我吗?
新手xyongz
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:7 积分:111 威望:0 精华:0 注册:2018/7/19 16:21:00
[求助]自动输入问题  发帖心情 Post By:2018/7/20 17:23:00 [显示全部帖子]

我通过表事件已实现【订单】表输入产品编码,自动调用【产品】表的品名,规格,数量的自动输入。
【产品】表和【供货商】表通过供货商编号关联。
如何能用事件实现【订单】表输入产品编码时将对应的【供货商】表的公司名,联系电话等信息,跟产品信息一起自动输入?

请老师帮忙解答一下,谢谢。

 回到顶部
帅哥哟,离线,有人找我吗?
新手xyongz
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:7 积分:111 威望:0 精华:0 注册:2018/7/19 16:21:00
  发帖心情 Post By:2018/7/20 18:16:00 [显示全部帖子]

就是不会写这段代码,想请老师指点一下怎么写??

 回到顶部
帅哥哟,离线,有人找我吗?
新手xyongz
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:7 积分:111 威望:0 精华:0 注册:2018/7/19 16:21:00
  发帖心情 Post By:2018/7/20 20:38:00 [显示全部帖子]

If e.DataCol.Name = "产品编号" Then
    If e.NewValue Is Nothing Then
        e.DataRow("品名") = Nothing
        e.DataRow("型号") = Nothing
        e.DataRow("规格") = Nothing
        e.DataRow("单价") = Nothing
    Else
        Dim dr As DataRow
        dr = DataTables("产品").Find("[产品编号] = '" & e.NewValue & "'")
        If dr IsNot Nothing 
            e.DataRow("品名") = dr("品名")
            e.DataRow("型号") = dr("型号")
            e.DataRow("规格") = dr("规格")
            e.DataRow("单价") = dr("单价") 
        End If
    End If
End If

这个是单独按产品编号调用产品表,产品表有供货商编码这个列,关联的供货商表,那我加两行语句就可以吗?
e.DataRow("公司名") = dr("公司名")
 e.DataRow("联系电话") = dr("联系电话")
    

前面不用加什么关于供货商表的语句么???
[此贴子已经被作者于2018/7/20 20:38:25编辑过]

 回到顶部