Advertisement
Advertisement
| 05.22.2008 at 12:05PM PDT, ID: 23425576 |
|
[x]
Attachment Details
|
||
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: |
Private Sub ComboBox8_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox8.SelectedIndexChanged
'Fill size below ASN if production changes
Dim i As Integer
Dim TableASNSizes As New DataTable
Dim dv As New DataView(ds.Tables("Products"))
dv.RowFilter = "Production LIKE '%" & Me.ComboBox8.Text & "%'"
TableASNSizes = dv.ToTable("Size", True, "Size")
With Me.ComboBox9
.DataSource = TableASNSizes
.ValueMember = "Size"
.DisplayMember = "Size"
If SaveCallFrom = "modify" Then
For i = 0 To .Items.Count - 1
If .Items(i)("Size").ToString = ds.Tables("ASNs").Rows(SelectedRow)("Size").ToString Then
.SelectedIndex = i
Exit For
End If
Next
If i >= .Items.Count Then .SelectedIndex = -1
Else
.SelectedIndex = 0
End If
End With
End Sub
|