myrow.cls

来自「guan yu pai ke xi tong de ruan jian」· CLS 代码 · 共 52 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "MDD_Row"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'本模块表示一条记录。
Private TemField() As MDD_Field   '字段对象集.
Private TemFieldCount As Long '字段数量。
Public Property Get FieldCount() As Long  '只读属性.
        FieldCount = TemFieldCount
End Property
Private Sub Class_Initialize()
    '初始化该对象.
    TemFieldCount = 0
    ReDim Preserve TemField(TemFieldCount)
End Sub
Public Property Get Items(ByVal FieldIndex As Long) As MDD_Field
    '获取字段（可进一步对其操作）。
    If FieldIndex >= 0 And FieldIndex < TemFieldCount Then
        Set Items = TemField(FieldIndex)
    End If
End Property
Public Sub AddField(ByVal FieldName As String, ByVal DataType As MDD_DataType)
    '添加字段。
    TemFieldCount = FieldCount + 1
    ReDim Preserve TemField(TemFieldCount)
    Set TemField(TemFieldCount - 1) = New MDD_Field
    With TemField(TemFieldCount - 1)
        .Name = FieldName
        .DataType = DataType
    End With
End Sub
Public Sub DelField(ByVal FieldIndex As Long)
    '删除某个字段.
    Dim ForIndex As Long
    If FieldIndex >= 0 And FieldIndex < TemFieldCount Then
        For ForIndex = FieldIndex To TemFieldCount - 2 Step 1
            Set TemField(ForIndex) = TemField(ForIndex + 1)
        Next
        TemFieldCount = TemFieldCount - 1
        ReDim Preserve TemField(TemFieldCount)
    End If
End Sub