Dim st As String = "外协"
 If e.DataCol.Name = "生产流程单_转接序发送" AndAlso e.DataRow("生产流程单_转接序发送") = True  Then
If  e.DataCol.Name = "生产流程单_加工方式" AndAlso   e.DataRow("生产流程单_加工方式") =  "st" 
    Dim nma() As String = {"生产通知单_订单编号","生产通知单_产品名称","生产流程单_投入数","生产流程单_接序时间","生产流程单_作业者"} \'A表数据来源列
    Dim nmb() As String = {"外协加工通知单_订单编号","外协加工通知单_产品名称","外协加工通知单_数量","外协加工通知单_出厂时间","外协加工通知单_生产负责人"} \'B表数据接收列
    Dim dr As DataRow = DataTables("采购外协管理系统").AddNew
    For i As Integer = 0 To nma.Length - 1
        dr(nmb(i)) = e.DataRow(nma(i))
    Next
End If
End If

此主题相关图片如下：18.png

我想增加判断语句 就是加工方式选择增加的情况下   才把相应内容传递《采购外协管理系统》， 但是这个代码我不知道怎么就是不运行

还往老师多指导指导啊