Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]一个订单号有多个产品，一个产品也有多个订单号。


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

主题：[求助]一个订单号有多个产品，一个产品也有多个订单号。
帅哥，在线噢！
有点蓝
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107670 积分：547671 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/12/8 15:30:00 [只看该作者]

只是让您学学当2个表列名不一致的时候人家是怎么处理的。不是让你照抄别人代码。您的处理逻辑和select有一分钱的关系吗

If  e.DataCol.Name = "dnd_so" orelse e.DataCol.Name = "dnd_wo_part"  Then
    Dim nms() As String = {"dnd_cust", "dnd_cust_part", "dnd_xl", "dnd_dy", "dnd_rl", "dnd_zj", "dnd_gd", "dnd_rc"}
    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("so_det").Find("(so_cust_dh = '" & e.DataRow("dnd_so") & "') and(so_part = '" & e.DataRow("dnd_wo_part") & "')")
        If dr IsNot Nothing Then
    Dim Cols1() As String = {"so_cust", "so_cust_part", "so_xl", "so_dy", "so_rl", "so_zj", "so_gd", "so_rc"}
            For i As Integer = 0 To Cols1.Length -1
                e.DataRow(nms(i)) = dr(Cols1(i))
            Next
        End If
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
mengxxaa
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：88 积分：697 威望：0 精华：0 注册：2022/10/10 15:34:00 		  发帖心情 Post By：2022/12/9 10:58:00 [只看该作者]

If e.DataCol.Name = "dnd_so" OrElse e.DataCol.Name = "dnd_wo_part" Then
       If e.NewValue Is Nothing Then
        e.DataRow("dnd_cust") = Nothing
        e.DataRow("dnd_cust_part") = Nothing
        e.DataRow("dnd_xl") = Nothing
       e.DataRow("dnd_xl") = Nothing
       e.DataRow("dnd_dy") = Nothing
       e.DataRow("dnd_rl") = Nothing
     e.DataRow("dnd_zj") = Nothing
     e.DataRow("dnd_gd") = Nothing
    e.DataRow("dnd_rc") = Nothing
     Else
        Dim dr As DataRow
        dr = DataTables("so_det").Find("(so_cust_dh = '" & e.DataRow("dnd_so") & "') and(so_part = '" & e.DataRow("dnd_wo_part") & "')")
        If dr IsNot Nothing Then
            e.DataRow("dnd_cust") = dr("so_cust")
        e.DataRow("dnd_cust_part") = dr("so_cust_part")
        e.DataRow("dnd_xl") = dr("so_xl")
      e.DataRow("dnd_dy") = dr("so_dy")
     e.DataRow("dnd_rl") = dr("so_rl")
     e.DataRow("dnd_zj") = dr("so_zj")
     e.DataRow("dnd_gd") = dr("so_gd")
     e.DataRow("dnd_rc") = dr("so_pc")
        End If
    End If
End If

用这个代码解决了，就是不知道怎么简化这个代码，照着帮助手册上简化，运行不成功
 回到顶部
帅哥哟，离线，有人找我吗？
mengxxaa
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：88 积分：697 威望：0 精华：0 注册：2022/10/10 15:34:00 		  发帖心情 Post By：2022/12/9 11:04:00 [只看该作者]

编程小白，继续学习

 回到顶部
帅哥，在线噢！
有点蓝
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107670 积分：547671 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/12/9 11:27:00 [只看该作者]

看11楼

 回到顶部
总数 14 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03125 秒, 4 次数据查询