vbscript BOReader（VB）

Posted 2021-05-22

Sub InitBottles()
    Dim _boReader As BOReader = new BOReader(IssueMaterialForm.Session.ConnectionPool)
    Dim ds AS DataSet  = _boReader.GetList("UD06", "Number01>0", "Character01,Number01") 'NO SPACE BETWEEN FIELD NAMES!
    cmbBottles.DataSource=ds.Tables(0)
    cmbBottles.DisplayMember="Character01"
    cmbBottles.ValueMember="Number01"

    End Sub