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


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

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

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


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

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

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

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/7/20 17:53:00 [只看该作者]

查找到产品表数据之后,不是可以获取到【供货商编号】?

 

根据供货商编号,再查找供货商的数据,不就可以了?


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


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

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

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/7/20 19:58:00 [只看该作者]

你是如何“自动调用【产品】表”的,用法一样咯。


 回到顶部
帅哥哟,离线,有人找我吗?
新手xyongz
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/7/20 20:51: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("单价")
            Dim d2 As DataRow = DataTables("供货商表").Find("[供货商编码] = '" & dr("供货商编码") & "'")
            If d2 IsNot Nothing
                e.DataRow("公司名") = d2("公司名")
            End If
        End If
    End If
End If

 回到顶部