工序            名称

1               原子笔

2               钢笔

2               毛笔

1               铅笔

工序代表当前步骤。入库之后仍是半成品。所以要在名称后面加后缀。

比如   原子笔-1

         钢笔-2

         毛笔-2

         铅笔-1

要求入库的时候自动根据工序列  在名称后面加上后缀

if e.datacol.name="工序" then

   if e.datarow.isnull("工序")=false andalso e.datarow.isnull("名称")=false then

           e.datarow("名称")=e.datarow("名称") & "-" & e.datarow("工序")

   end if

end if

 Dim dr1 As DataRow = DataTables("生产进度表").Find("生产编号=\'" & bh & "\' and 待氧化工序=\'" & gx & "\'")

        Dim MC As String = Tables("质检表").current("产品名称")

                            If dr1 IsNot Nothing Then

                           MC = MC & "-" & "DYH"

                            Else

                           MC = MC & "-" & GX

                            End If 

        Dim dr2 As DataRow = DataTables("半成品库存").find("产品名称=\'" & MC & "\')

                             If dr2 Is Nothing Then

                             Dim r4 As Row = Tables("半成品库存").AddNew(1)

                                r4("产品名称")= MC 

                             End If                 

                                Dim r1 As Row = Tables("质检表").Current

                                Dim r2 As Row = Tables("半成品明细").AddNew(1)

                                r2("生产编号")=r1("生产编号") 

                                r2("产品名称")= MC

                                r2("入库_合格品")=r1("合格品")

                                r2("入库_工序")=r1("工序顺序")

                                r2("入库_部门")=r1("加工部门")

                                r2("入库_日期")=r1("交货日期")

                                r2("入库_不良品")=r1("不良品_收")

                                r2("入库_报废品_质检后")=r1("报废品")

r2("产品名称")= MC

基础功太差   表达式不会写   求指导

你直接说你那里报错,出现什么情况. 问题在哪里.这样可以节省大家的时间, 快速定位错误.否则别人无脑的一句句代码给你分析. 看完依然不知所云.

有例子当然就最好了.