Foxtable(狐表) → 用户栏目 → 专家坐堂 → 字符合并


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

主题：字符合并
美女呀，离线，留言给我吧！
13775189031
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：870 积分：6018 威望：0 精华：0 注册：2017/12/19 14:46:00 		字符合并  发帖心情 Post By：2024/11/2 10:22:00 [只看该作者]

请教老师：以零部件编号为关联，A表中的A/B列内容在B表中合并成一列，如何实现

A表      列A     列B
           a        b
B表      列A
           a,b    
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


表A，datacolchanged

Select Case e.DataCol.Name
    Case "列A","列B"
        Dim dr As DataRow = e.DataRow
        Dim pr As DataRow

            Dim filter As String
            filter = "零部件编号 = '" & dr("零部件编号") & "'"
            pr = DataTables("B表").Find(filter)
            If pr IsNot Nothing Then
                pr("列A") = dr("列A") & "," & dr("列B")
            End If

End Select

 回到顶部
美女呀，离线，留言给我吧！
13775189031
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：870 积分：6018 威望：0 精华：0 注册：2017/12/19 14:46:00 		  发帖心情 Post By：2024/11/2 14:16:00 [只看该作者]

请老师看下 ，下面的代码哪里有问题？
Select Case e.DataCol.name
    Case "锻件","规格"
        If e.DataRow("锻件") = False Then
            DataTables("锻铸件清单").DeleteFor("零部件编号='" & e.DataRow("零部件编号") & "'")
        Else
            Dim ndr As Row = Tables("锻铸件清单").AddNew
            ndr("零部件编号") = e.DataRow("零部件编号")
            ndr("制单日期") = e.DataRow("制单日期")
            ndr("生产令号") = e.DataRow("生产令号")
            ndr("项目名称") = e.DataRow("项目名称")
            ndr("机组") = e.DataRow("机组")
            ndr("零部件名称") = e.DataRow("零部件名称")
            ndr("零部件图号") = e.DataRow("零部件图号")
            ndr("数量") = e.DataRow("数量")
            ndr("材质") = e.DataRow("材质")
            ndr("材料批次") = e.DataRow("材料批次")
            ndr("零部件标识") = e.DataRow("零部件标识")
            ndr.Move(0)
            ndr("_sortkey") = DataTables("锻铸件清单").sqlcompute("min([_sortkey])") - 0.00000001
        End If
        Dim filter As String
        Dim pr As DataRow
        filter = "零部件编号 = '" & e.DataRow("零部件编号") & "'"
        pr = DataTables("锻铸件清单").Find(filter)
        If e.DataRow("规格").Contains("δ") Then
            pr("下料尺寸") = e.DataRow("规格") & "×" & e.DataRow("下料尺寸")
        Else
            If e.DataRow("规格").Contains("φ") Then
                pr("下料尺寸") = e.DataRow("规格") & "," & e.DataRow("下料尺寸")
            Else
                pr("下料尺寸") = e.DataRow("规格")
            End If
        End If
End Select
[此贴子已经被作者于2024/11/2 14:17:01编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/11/2 14:43:00 [只看该作者]

……
           ndr("数量") = e.DataRow("数量")
            ndr("材质") = e.DataRow("材质")
            ndr("材料批次") = e.DataRow("材料批次")
            ndr("零部件标识") = e.DataRow("零部件标识")
            ndr.Move(0)
            ndr("_sortkey") = DataTables("锻铸件清单").sqlcompute("min([_sortkey])") - 0.00000001
        If e.DataRow("规格").Contains("δ") Then
            ndr("下料尺寸") = e.DataRow("规格") & "×" & e.DataRow("下料尺寸")
        Else
            If e.DataRow("规格").Contains("φ") Then
                ndr("下料尺寸") = e.DataRow("规格") & "," & e.DataRow("下料尺寸")
            Else
                ndr("下料尺寸") = e.DataRow("规格")
            End If
        End If
        End If

End Select
 回到顶部
美女呀，离线，留言给我吧！
13775189031
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：870 积分：6018 威望：0 精华：0 注册：2017/12/19 14:46:00 		  发帖心情 Post By：2024/11/2 16:06:00 [只看该作者]

要求表A中的列“规格”、“下料尺寸”变化时，表“铸锻件清单”中列“下料尺寸”，能够自动变更，现在但表A中列“下料尺寸”变化时，表“铸锻件清单”中列“下料尺寸”不能自动变更，是哪里有问题（“规格”列变化时，“铸锻件清单”中的“下料尺寸”能够自动变更）

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


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/11/2 16:17:00 [只看该作者]

Select Case e.DataCol.name
    Case "锻件"
        If e.DataRow("锻件") = False Then
            DataTables("锻铸件清单").DeleteFor("零部件编号='" & e.DataRow("零部件编号") & "'")
        Else
            Dim ndr As Row = Tables("锻铸件清单").AddNew
            ndr("零部件编号") = e.DataRow("零部件编号")
            ndr("制单日期") = e.DataRow("制单日期")
            ndr("生产令号") = e.DataRow("生产令号")
            ndr("项目名称") = e.DataRow("项目名称")
            ndr("机组") = e.DataRow("机组")
            ndr("零部件名称") = e.DataRow("零部件名称")
            ndr("零部件图号") = e.DataRow("零部件图号")
            ndr("数量") = e.DataRow("数量")
            ndr("材质") = e.DataRow("材质")
            ndr("材料批次") = e.DataRow("材料批次")
            ndr("零部件标识") = e.DataRow("零部件标识")
            ndr.Move(0)
            ndr("_sortkey") = DataTables("锻铸件清单").sqlcompute("min([_sortkey])") - 0.00000001
            If e.DataRow("规格").Contains("δ") Then
                ndr("下料尺寸") = e.DataRow("规格") & "×" & e.DataRow("下料尺寸")
            Else
                If e.DataRow("规格").Contains("φ") Then
                    ndr("下料尺寸") = e.DataRow("规格") & "," & e.DataRow("下料尺寸")
                Else
                    ndr("下料尺寸") = e.DataRow("规格")
                End If
            End If
        End If
    Case "下料尺寸", "规格"
        Dim filter As String
        Dim pr As DataRow
        filter = "零部件编号 = '" & e.DataRow("零部件编号") & "'"
        pr = DataTables("锻铸件清单").Find(filter)
        If pr Is Nothing Then
            pr = DataTables("锻铸件清单").SQLFind(filter)
        End If
        If pr IsNot Nothing Then
            If e.DataRow("规格").Contains("δ") Then
                pr("下料尺寸") = e.DataRow("规格") & "×" & e.DataRow("下料尺寸")
            Else
                If e.DataRow("规格").Contains("φ") Then
                    pr("下料尺寸") = e.DataRow("规格") & "," & e.DataRow("下料尺寸")
                Else
                    pr("下料尺寸") = e.DataRow("规格")
                End If
            End If
            pr.save
        End If
End Select
 回到顶部
美女呀，离线，留言给我吧！
13775189031
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：870 积分：6018 威望：0 精华：0 注册：2017/12/19 14:46:00 		  发帖心情 Post By：2024/11/4 13:08:00 [只看该作者]

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