Foxtable(狐表)用户栏目专家坐堂 → 版主,您好,请教函数,谢谢!


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

主题:版主,您好,请教函数,谢谢!

帅哥哟,离线,有人找我吗?
divil
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:235 积分:2060 威望:0 精华:0 注册:2012/9/23 10:42:00
  发帖心情 Post By:2023/11/15 16:19:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:下载.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:超级版主 帖子:107780 积分:548245 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/11/15 16:28:00 [只看该作者]

邮箱我收不到的。只能上传2M之内的文件。新建一个项目,导入表格和测试数据到内部表,重现同样的问题,然后把新项目发上来。

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


加好友 发短信
等级:超级版主 帖子:107780 积分:548245 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/11/15 16:48:00 [只看该作者]

这个意思?如果订单明细表【客户物料编号】有值就直接取,否则取"物料"的值?

If e.DataCol.Name = "采购订单凭证一行项目" Then
    Dim nms() As String = {"客户采购订单编号", "生产批次", "凭证日期", "物料", "销售订单", "行项目1"}
    If e.NewValue Is Nothing Then
        For Each nm As String In nms
            e.DataRow(nm) = Nothing
        Next
    Else
        Dim dr As DataRow
        dr = DataTables("衰减器和滤波器订单明细表").Find("[采购订单凭证一行项目] = '" & e.NewValue & "'")
        If dr IsNot Nothing Then
            For Each nm As String In nms
                e.DataRow(nm) = dr(nm)
            Next
            If dr.isnull("客户物料编号") = False Then
                e.DataRow("客户物料编号") = dr("客户物料编号")
            Else
                e.DataRow("客户物料编号") = e.DataRow("物料") 
            End If
        End If
    End If
End If

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


加好友 发短信
等级:童狐 帖子:235 积分:2060 威望:0 精华:0 注册:2012/9/23 10:42:00
  发帖心情 Post By:2023/11/15 17:05:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:衰减器和滤波器订单管理系统.rar


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


加好友 发短信
等级:童狐 帖子:235 积分:2060 威望:0 精华:0 注册:2012/9/23 10:42:00
  发帖心情 Post By:2023/11/15 17:05:00 [只看该作者]

版主,您好,上传了文件,请注意查收,谢谢!

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


加好友 发短信
等级:超级版主 帖子:107780 积分:548245 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/11/15 17:08:00 [只看该作者]

看看是不是13楼的意思

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


加好友 发短信
等级:童狐 帖子:235 积分:2060 威望:0 精华:0 注册:2012/9/23 10:42:00
  发帖心情 Post By:2023/11/16 8:39:00 [只看该作者]

版主,您好,是的,我把您指导的程序放到小客户数据上传表的表事件中,最后实现我想要的功能,谢谢您,辛苦您了。

 回到顶部
总数 17 上一页 1 2