|
Dim ddh As WinForm.TextBox = e.Form.Controls("合同号")
Dim shk As WinForm.TextBox = e.Form.Controls("款号")
Dim filter As String = "合同号 = '" & ddh.Text & "'And 款号 = '" & shk.Text & "' "
For i1 As Integer = 1 To 9
Dim drm1 As String = e.Form.Controls("Tml_" & i1 & "_1" ).text
Dim drm2 As String = e.Form.Controls("Tml_" & i1 & "_2" ).text
Dim drm7 As String = e.Form.Controls("Tml_" & i1 & "_7" ).text
Dim drm8 As String = e.Form.Controls("Tml_" & i1 & "_8" ).text
If drm1 <> "" And drm2 <> "" And drm7<> "" And drm8<> "" Then
If shk.text > "" And ddh.text > "" Then
Dim drs As List(Of DataRow) = DataTables("订单面料明细").Select(filter & " and 面料名称 = '" & e.Form.controls("Tml_" & i1 & "_2" ).Text & "' and 面料颜色 = '" & e.Form.controls("Tml_" & i1 & "_1" ).Text & "'")
If drs.count = 0 Then
Dim dr As DataRow = DataTables("订单面料明细").AddNew
dr("合同号") = ddh.text
dr("款号") = shk.text
dr("面料名称") = e.Form.controls("Tml_" & i1 & "_2").Text
dr("面料规格") = e.Form.controls("Tml_" & i1 & "_3" ).Text
dr("面料颜色") = e.Form.controls("Tml_" & i1 & "_1" ).Text
dr("面料成分") = e.Form.controls("Tml_" & i1 & "_4").Text
dr("面料门幅") = e.Form.controls("Tml_" & i1 & "_6" ).Text
dr("面料单位") = e.Form.controls("Tml_" & i1 & "_5" ).Text
dr("面料单耗") = e.Form.controls("Tml_" & i1 & "_7").Text
dr("面料合计") = e.Form.controls("Tml_" & i1 & "_8" ).Text
dr("供应商") = e.Form.controls("Tml_" & i1 & "_9" ).Text
Else
For ir As Integer = 0 To drs.count-1
drs(ir)("面料名称") = e.Form.controls("Tml_" & i1 & "_2").Text
drs(ir)("面料规格") = e.Form.controls("Tml_" & i1 & "_3" ).Text
drs(ir)("面料颜色") = e.Form.controls("Tml_" & i1 & "_1" ).Text
drs(ir)("面料成分") = e.Form.controls("Tml_" & i1 & "_4").Text
drs(ir)("面料门幅") = e.Form.controls("Tml_" & i1 & "_6" ).Text
drs(ir)("面料单位") = e.Form.controls("Tml_" & i1 & "_5" ).Text
drs(ir)("面料单耗") = e.Form.controls("Tml_" & i1 & "_7").Text
drs(ir)("面料合计") = e.Form.controls("Tml_" & i1 & "_8" ).Text
drs(ir)("供应商") = e.Form.controls("Tml_" & i1 & "_9" ).Text
Next
End If
End If
End If
Next
| 
加好友 
发短信
Post By：2016/11/24 11:41:00 [只看该作者]
