If _userroles.Contains("计划配缸") = True OrElse _usergroup = "原料坯布仓库" Then
If Tables(e.Form.Name & "_table2").current IsNot Nothing Then
For Each r1 As Row In Tables(e.Form.Name & "_table2").Rows
Dim Cols1() As String = {"订单明细编号","销售人员","客户","客户编号","品名大类","品名小类","成品克重","成品门幅","颜色","染色订单号","色号","使用坯布规格","卡注要求"}
Dim Cols2() As String = {"订单明细编号对外","销售人员","客户","客户编号","品名大类","品名小类","成品克重","成品门幅","颜色","染色订单号","色号","坯布规格","卡注"}
If r1("下一工序").Contains("配缸") = True AndAlso DataTables("计划配缸通知单").sqlfind("订单明细编号对外 = '" & r1("订单明细编号") & "'") Is Nothing Then
Dim r2 As DataRow = DataTables("计划配缸通知单").find("品名大类 = '" & r1("品名大类") & "' and 品名小类 = '" & r1("品名小类") & "' and 成品克重 = '" & r1("成品克重") & "'")
If r2 Is Nothing Then r2 = DataTables("计划配缸通知单").addnew
For i As Integer = 0 To Cols1.length -1
If r1.Isnull(Cols1(i)) = False Then
r2(Cols2(i)) = r1(Cols1(i))
End If
Next
r2("计划重量") += r1("投坯")
r2.save
End If
Next
Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
tab.Selectedpage = tab.TabPages("计划配缸")
End If
Else
msgbox("您没有权限操作!")
End If
[此贴子已经被作者于2016/12/31 11:38:05编辑过]
加好友 
发短信
Post By：2016/12/31 11:38:00 [显示全部帖子]
