http://www.foxtable.com/webhelp/topics/1470.htm
Select Case e.DataCol.Name
Case "生产流程单_料废", "生产流程单_工废"
Dim drf As DataRow = e.DataRow
If drf.isnull("生产流程单_工废")=false AndAlso drf.isnull("生产流程单_料废")=false 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 Select
加好友 
发短信
Post By：2022/5/25 8:39:00 [显示全部帖子]
