主题：增加行

想改成如果“材料标准”=“多种”，则

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.Move(0)

其他的材料标准，除了上面的以外，都在增加一项

               ndr("材料标准") = e.DataRow("材料标准")

怎么改？

Select Case e.DataCol.name

    Case "进料表编号","材料标准"

        If e.DataRow.IsNull("进料表编号") Then

            DataTables("角钢进料表明细").DeleteFor("进料表编号='" & e.DataRow("进料表编号") & "'")

            e.DataRow("状态_发料完成") = False

            e.DataRow("状态_U8出库") = False

        Else

            If e.DataRow("材料标准") = "多种" Then

                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.Move(0)

            End If

            If e.DataRow("材料标准") = "国标" Then

                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.Move(0)

            End If

            If e.DataRow("材料标准") = "国网" Then

                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.Move(0)

            End If

            If e.DataRow("材料标准") = "南网" Then

                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.Move(0)

            End If

            If e.DataRow.GetChildRows("角钢进料表明细").Count > 0

                Dim cnt As Integer = DataTables("角钢进料表明细").Compute("count(进料表编号)","进料表编号 = '" & e.DataRow("进料表编号") & "'and (U8出库=false and 处置_重派=false)")                                                                                          

                e.DataRow("状态_U8出库") = (cnt=0)

                cnt  = DataTables("角钢进料表明细").Compute("count(进料表编号)","进料表编号 = '" & e.DataRow("进料表编号") & "'and (未发数量 > 0 or 未发数量 is null)")

                e.DataRow("状态_发料完成") = (cnt=0)

            End If

        End If

End Select

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:角钢发料管理台账.foxdb

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:角钢发料管理台账.rar

还有一个奇怪的现象，改了代码以后，在表“角钢进料明细”里填写“派料支数”以后，会自动增加一行，是什么原因？

147258

还是有问题，我想要在发料台账里选择“多种”时，说明这张单子里有多种材料标准，明细里增加的这一行不生成“多种”而是在明细里填写各个标准，如果台账里选择<> "多种"，则在明细里增加的这一行生成标准，不需要在填写