Select Case e.DataCol.Name
Case "生产流程单_料废", "生产流程单_工废"
Dim drf As DataRow = e.DataRow
If drf("生产流程单_工废")IsNot Nothing Or drf("生产流程单_料废")IsNot Nothing Then
If e.DataCol.Name = "生产流程单_判定" AndAlso e.DataRow("生产流程单_判定") = True Then
Dim nma() As String = {"生产流程单_成品入库","生产流程单_半成品入库","生产通知单_订单编号","生产流程单_工序","生产流程单_作业者","生产流程单_供应商","生产流程单_料废","生产流程单_工废","生产流程单_检验签名" }
Dim nmb() As String = {"废品申报单_成品","废品申报单_半成品" ,"废品申报单_订单编号","废品申报单_工序号","废品申报单_作业者","废品申报单_供应商","废品申报单_料废","废品申报单_工废","废品申报单_品管部"}
Dim drh As DataRow = DataTables("不合格品管控系统").AddNew
For i As Integer = 0 To nma.Length - 1
drh(nmb(i)) = e.DataRow(nma(i))
Next
End If
End If
End Select
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:147.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2022-5/20225257325135258.png)
我想先判断工废和料废有内容之后 在判断判定是否确认 确认后将相关信息传导下一个表 这样写问题在哪呢 怎么不运行