VB开发的ERP系统

VERSION 5.00
Begin VB.Form Ed_EmpCorArSortFrm 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "档案类别"
   ClientHeight    =   1095
   ClientLeft      =   4170
   ClientTop       =   1950
   ClientWidth     =   2895
   Icon            =   "辅助_相关档案类别选择.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1095
   ScaleWidth      =   2895
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton Cmd_Cancel 
      Caption         =   "取消(&C)"
      Height          =   300
      Left            =   1800
      TabIndex        =   2
      Top             =   690
      Width           =   1000
   End
   Begin VB.CommandButton Cmd_Yes 
      Caption         =   "确定(&O)"
      Height          =   300
      Left            =   675
      TabIndex        =   1
      Top             =   690
      Width           =   1000
   End
   Begin VB.ComboBox Cbo_ArSort 
      Height          =   300
      Left            =   135
      Style           =   2  'Dropdown List
      TabIndex        =   0
      Top             =   270
      Width           =   2685
   End
End
Attribute VB_Name = "Ed_EmpCorArSortFrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'**************************************************************************************************
'*    模 块 名 称 :相关档案类别选择
'*    功 能 描 述 :相关档案类别选择
'*    程序员姓名  :刘刚
'*    最后修改人  :刘刚
'*    最后修改时间:2001/12/04
'*    备        注:
'*
'**************************************************************************************************

Dim ArSort() As String

Private Sub Cmd_Yes_Click()
    Cbo_ArSort.Tag = ArSort(Cbo_ArSort.ListIndex)
    Me.Hide
End Sub

Private Sub Cmd_Cancel_Click()
    Cbo_ArSort.Tag = ""
    Me.Hide
End Sub

Private Sub Form_Activate()
    Dim i As Integer
    Dim tmpRs As New Recordset
    Set tmpRs = Cw_DataEnvi.DataConnect.Execute("select * from Rs_ArSort")
    i = 0
    Cbo_ArSort.Clear
    Do While Not tmpRs.EOF
        Cbo_ArSort.AddItem Trim(tmpRs!ArName)
        ReDim Preserve ArSort(i + 1)
        ArSort(i) = Trim(tmpRs!ArSort)
        i = i + 1
        tmpRs.MoveNext
    Loop
    If Cbo_ArSort.List(0) <> "" Then
        Cbo_ArSort.ListIndex = 0
    End If
    tmpRs.Close
End Sub