Skip to main content

Binding List Data On Combo Box VB.NET With Empty First Row Data



Control Script

    Public Function CARI_SUPPLIERID(ByVal _Namenya As String) As String

        MeKONEKSI.TUTUPKONEKSI()
        COMMAND.CommandType = CommandType.Text
        COMMAND.CommandText = "SELECT SUPPLIERID FROM TABELSUPPLIER " & _
                              "WHERE SUPPLIERNAME = '" & _Namenya & "'"
        COMMAND.Connection = MeKONEKSI.BUKAKONEKSI
        DTR = COMMAND.ExecuteReader

        Return DTR.Read
    End Function



Boundary Script

       With CmbSUPPLIERNAME
            .AutoCompleteMode = AutoCompleteMode.SuggestAppend
            .AutoCompleteSource = AutoCompleteSource.ListItems
            .DataSource = MeSupplier_Control.SUPPLIERID_SUPPLIERNAME
            .DisplayMember = "SUPPLIERNAME"
            .SelectedIndex = -1
            .Text = "- SELECT SUPPLIER -"
        End With

Comments

Popular posts from this blog

Pop Up message Visual Studio "The operation could not be completed. The process cannot access the file because it is being used by another process"

Run your Visual Studio as Administrator account

Create Comment As .xls In Farpoint Spread

  Private Sub TAGS_PARENTING()         Dim DTPopUp As New DataTable         With DTPopUp             .Columns.Add("SEQ", GetType(String))             .Columns.Add("QTY", GetType(String))             .Columns.Add("ETD", GetType(String))             .Columns.Add("ETA", GetType(String))             DTPopUp = MePostab_Control.Cari_TAG_PARENTING         End With         With FPPOSTAB             For GG As Integer = 0 To .ActiveSheet.RowCount - 1             ...