主题：字符串添加后缀。新手问题

工序            名称

1               原子笔

2               钢笔

2               毛笔

1               铅笔

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

比如   原子笔-1

         钢笔-2

         毛笔-2

         铅笔-1

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

 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

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