1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56
| Private Sub Command4_Click()
Dim w As Integer
For w = 0 To Combo4.ListCount - 1 ' Parcourt la
' liste dans
' la boucle.
If Combo4 > "" Then
'insert code
MSFlexGrid1.ColWidth(0) = 1500
MSFlexGrid1.AddItem "H" & vbTab & Combo1.Text & vbTab & "M" & Combo7 & "00" & Text2 & vbTab & Combo2 & vbTab & "HOST" & vbTab & Combo3 & vbTab & Combo4 & vbTab & vbTab & vbTab & Text10 & vbTab & Text11 & vbTab & Text12 & vbTab & Text13 & vbTab & Combo5 & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & "COL" & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & "M" & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & "P" & vbTab & vbTab & "M" & Combo7 & "00" & Text2 & vbTab & Combo2 & vbTab & Text16 & vbTab & Text14 & vbTab & Text9 & vbTab & vbTab & vbTab & vbTab & Combo6
'augmanter le nombre de commande
Text5 = Text5 + 1
FlexGrid_AutoSizeColumns MSFlexGrid1, Me
Text2 = Text2 + 1
'next orders
Combo4.ListIndex = Combo4.ListIndex + 1
Frame2.Visible = True
MSFlexGrid1.Visible = True
'Insert pieces and cubes for the store
Dim i As Integer
For i = 0 To Order_LakeShore.MSFlexGrid1.Rows - 1
If New_order.Combo4.Text = Order_LakeShore.MSFlexGrid1.TextMatrix(i, 1) Then
'MsgBox "Found: " & Order_LakeShore.MSFlexGrid1.TextMatrix(i, 1) & ": " & Order_LakeShore.MSFlexGrid1.TextMatrix(i, 21)
Text9.Text = Order_LakeShore.MSFlexGrid1.TextMatrix(i, 20)
Text16.Text = Order_LakeShore.MSFlexGrid1.TextMatrix(i, 21)
Text4.Text = Order_LakeShore.MSFlexGrid1.TextMatrix(i, 22)
Label18 = Order_LakeShore.MSFlexGrid1.TextMatrix(i, 0)
End If
Next
'Insert windows for the store
Dim j As Integer
For j = 0 To LakeShore.MSFlexGrid1.Rows - 1
If New_order.Combo4.Text = LakeShore.MSFlexGrid1.TextMatrix(j, 0) Then
'MsgBox "Found: " & Order_LakeShore.MSFlexGrid1.TextMatrix(j, 1) & ": " & Order_LakeShore.MSFlexGrid1.TextMatrix(i, 21)
Text10.Text = Text3 & Text6 & Text14 & LakeShore.MSFlexGrid1.TextMatrix(j, 2)
Text11.Text = Text3 & Text6 & Text14 & LakeShore.MSFlexGrid1.TextMatrix(j, 3)
Text12.Text = Text3 & Text6 & Text14 & LakeShore.MSFlexGrid1.TextMatrix(j, 2)
Text13.Text = Text3 & Text6 & Text14 & LakeShore.MSFlexGrid1.TextMatrix(j, 3)
End If
Next
Else
End If
Next w
End Sub |