如何增加判断语句 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

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

还往老师多指导指导啊

If e.DataCol.Name = "生产流程单_转接序发送" AndAlso e.DataRow("生产流程单_转接序发送") = True AndAlso e.DataRow("生产流程单_加工方式") = "外协" Then

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))

End If

类似这种加判断语句的内容看哪块的帮助

主题：如何增加判断语句