Select Case e.DataCol.Name
    Case "探伤要求_UT"
        If e.newvalue = False Then
            DataTables("UT报告").DeleteFor("焊缝编号=\'" & e.DataRow("焊缝编号") & "\'")
        Else
            Dim ndr As DataRow = DataTables("UT报告").AddNew
            ndr("零部件编号") = e.DataRow("零部件编号")
            ndr("生产令号") = e.DataRow("生产令号")
            ndr("项目名称") = e.DataRow("项目名称")
            ndr("机组") = e.DataRow("机组")
            ndr("工件类型") = "焊缝"
            ndr("标识号") = "/"
            ndr("材质") = e.DataRow("母材材质_部件1") "/" e.DataRow("母材材质_部件2")
            ndr("规格") = "/"
            ndr("炉批号") = "/"
            ndr("零部件名称") = e.DataRow("零部件名称")
            ndr("零部件图号") = e.DataRow("零部件图号")
            ndr("焊缝编号") = e.DataRow("焊缝编号")
            ndr("数量") = e.DataRow("数量")
            ndr("编制人资质") = "UT"
            ndr("审核人资质") = "UT"
        End If
End Select

关联表自动增加行，生成的“材质”列是由“母材材质_部件1”和“母材材质_部件2”两列值生成，中间用“/”隔开，代码要怎么改

 ndr("材质") = e.DataRow("母材材质_部件1") "/" e.DataRow("母材材质_部件2")

ndr("材质") = e.DataRow("母材材质_部件1") & "/" & e.DataRow("母材材质_部件2")

例如

母材材质_部件1   母材材质_部件2

      Q235                 Q345

自动增加行后表中“材质”显示要求为  Q235/Q345