classes/clsTVoucherGroup.vb

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

微信扫码关注公众号，代码整理好后第一时间通知你。

''' <summary>
''' 凭证类别类，对应用户表：T_VoucherGroup
''' </summary>
Public Class ClsTVoucherGroup
    Implements IList

    Private m_GroupId As Integer
    Private m_GroupName As String
    Private m_ShortName As String

    Private m_Count As Integer = 3 ' 成员数量

    Public Property GroupId As Integer
        Get
            Return m_GroupId
        End Get
        Set(value As Integer)
            m_GroupId = value
        End Set
    End Property

    Public Property GroupName As String
        Get
            Return m_GroupName
        End Get
        Set(value As String)
            m_GroupName = value
        End Set
    End Property

    Public Property ShortName As String
        Get
            Return m_ShortName
        End Get
        Set(value As String)
            m_ShortName = value
        End Set
    End Property

    Default Public Property Item(index As Integer) As Object Implements IList.Item
        Get

            Select Case index
                Case 0
                    Return m_GroupId

                Case 1
                    Return m_GroupName
                Case 2
                    Return m_ShortName
                Case Else
                    Return Nothing
            End Select
        End Get
        Set(value As Object)

            Select Case value
                Case 0
                    Dim tmpId As Integer
                    If Integer.TryParse(value, tmpId) <> 0 Then