Reply to thread

Message: <blockquote data-quote="Pathumpiyasa" data-source="post: 17182105" data-attributes="member: 487538">if you need more help contact mePublic Class MyListItem    Private mText As String    Private mValue As String    Public Sub New(ByVal pText As String, ByVal pValue As String)        mText = pText        mValue = pValue    End Sub    Public ReadOnly Property Text() As String        Get            Return mText        End Get    End Property    Public ReadOnly Property Value() As String        Get            Return mValue        End Get    End Property    Public Overrides Function ToString() As String        Return mText    End FunctionEnd Class---------SET VALUE-------------------------------------------------------DadaReader = SqlSelect("select * from Paymentrule")        If DadaReader.HasRows Then            Do While DadaReader.Read                cmboPaymentrule.DisplayMember = DadaReader("name")                cmboPaymentrule.ValueMember = DadaReader("PaymentruleID")                cmboPaymentrule.Items.Add(New MyListItem(DadaReader("name"), DadaReader("PaymentruleID")))            Loop        End If-----GET Value------------------------------------------------------------------------ Dim Paymentruleid As MyListItem = CType(cmboPaymentrule.SelectedItem, MyListItem)aa =Paymentruleid.Value</blockquote>

Top Bottom