Call UOMSelect

Script

Private Sub btnUOM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUOM.Click
frmUOMSelect.ShowDialog()
If frmUOMSelect.isOK Then
If cboUOMKey.Items.Count = 0 Then
fillUOM()
For i = 0 To uomView.Table.Rows.Count – 1
cboUOMKey.Items.Add(uomView.Item(i).Item(“uomkey”).ToString)
Next
End If
cboUOMKey.Text = frmUOMSelect.selected_uom
End If
End Sub

 

Leave a Reply

Your email address will not be published. Required fields are marked *