DevExpress set LookUpEdit Repository

Berikut adalah syntax yang digunakan pada component DevExpress data Repository LookUpEdit

Dim dsNomorRangka As New DataSet

Dim daNomorRangka As SqlDataAdapter = New SqlDataAdapter("crmFollowUpSalesDelivery_lstNomorRangka", SQLConnection)

With daNomorRangka

.SelectCommand.CommandType = CommandType.StoredProcedure

      .SelectCommand.Parameters.Clear()

      .SelectCommand.Parameters.Add("@CabangID", SqlDbType.NVarChar, 2).Value = "21"

      .SelectCommand.Parameters.Add("@NomorRangka", SqlDbType.NVarChar, 20).Value = "MHRGD" ' cboNomorRangka.EditValue

End With

daNomorRangka.Fill(dsNomorRangka)

With RepositoryLookupNomorRangka

.DataSource = dsNomorRangka.Tables(0)

      .ValueMember = "NomorRangka"

      .DisplayMember = "NomorRangka"

End With