Dim KH As WinForm.TextBox = e.Form.Controls("TextBox1") Dim DDH As WinForm.TextBox = e.Form.Controls("TextBox2") For j As Integer = 1 To 5 Dim r As Row = Tables("表A").AddNew For i As Integer = 1 To 1 Dim dr As String = e.Form.Controls("TBMX_" & i & "_" & j).text Dim dr2 As String = e.Form.Controls("TBY_" & j).text Dim dr3 As String = e.Form.Controls("TBX_" & i).text If dr <> "" And dr2 <> "" And dr3<> "" Then r("客户") = KH.Value r("订单号") = DDH.Value r("原料") = e.Form.Controls("TBX_" & i).Value r("规格") = e.Form.Controls("TBY_" & j).Value r("数量") = e.Form.Controls("TBMX_" & i & "_" & j).Value End If Next Next
|