【VB开源代码栏目提醒】：网学会员鉴于大家对VB开源代码十分关注，论文会员在此为大家搜集整理了“Test.frm”一文，供大家参考学习

    VERSION 5.00
    Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
    Begin VB.Form frmTest 
       Caption         =   "Form1"
       ClientHeight    =   3945
       ClientLeft      =   60
       ClientTop       =   345
       ClientWidth     =   4680
       LinkTopic       =   "Form1"
       ScaleHeight     =   3945
       ScaleWidth      =   4680
       StartUpPosition =   3  '窗口缺省
       Begin VB.CommandButton cmdClear 
          Caption         =   "&Clear"
          Height          =   375
          Left            =   2400
          TabIndex        =   1
          Top             =   3240
          Width           =   1935
       End
       Begin VB.CommandButton cmdUpdate 
          Caption         =   "&Update"
          Height          =   375
          Left            =   600
          TabIndex        =   0
          Top             =   3240
          Width           =   1575
       End
       Begin MSDataGridLib.DataGrid grdTeach 
          Bindings        =   "Test.frx":0000
          Height          =   3015
          Left            =   0
          TabIndex        =   2
          Top             =   0
          Width           =   4575
          _ExtentX        =   8070
          _ExtentY        =   5318
          _Version        =   393216
          AllowUpdate     =   0   'False
          HeadLines       =   1
          RowHeight       =   15
          FormatLocked    =   -1  'True
          BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
             Name            =   "宋体"
             Size            =   9
             Charset         =   134
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
             Name            =   "宋体"
             Size            =   9
             Charset         =   134
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          DataMember      =   "OneTeach"
          Caption         =   "导航栏"
          ColumnCount     =   4
          BeginProperty Column00 
             DataField       =   "Serial"
             Caption         =   "Serial"
             BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
                Type            =   0
                Format          =   ""
                HaveTrueFalseNull=   0
                FirstDayOfWeek  =   0
                FirstWeekOfYear =   0
                LCID            =   2052
                SubFormatType   =   0
             EndProperty
          EndProperty
          BeginProperty Column01 
             DataField       =   "Name"
             Caption         =   "Name"
             BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
                Type            =   0
                Format          =   ""
                HaveTrueFalseNull=   0
                FirstDayOfWeek  =   0
                FirstWeekOfYear =   0
                LCID            =   2052
                SubFormatType   =   0
             EndProperty
          EndProperty
          BeginProperty Column02 
             DataField       =   "Period"
             Caption         =   "Period"
             BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
                Type            =   0
                Format          =   ""
                HaveTrueFalseNull=   0
                FirstDayOfWeek  =   0
                FirstWeekOfYear =   0
                LCID            =   2052
                SubFormatType   =   0
             EndProperty
          EndProperty
          BeginProperty Column03 
             DataField       =   "typename"
             Caption         =   "typename"
             BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
                Type            =   0
                Format          =   ""
                HaveTrueFalseNull=   0
                FirstDayOfWeek  =   0
                FirstWeekOfYear =   0
                LCID            =   2052
                SubFormatType   =   0
             EndProperty
          EndProperty
          SplitCount      =   1
          BeginProperty Split0 
             BeginProperty Column00 
                ColumnWidth     =   2085.166
             EndProperty
             BeginProperty Column01 
                ColumnWidth     =   2085.166
             EndProperty
             BeginProperty Column02 
                ColumnWidth     =   1094.74
             EndProperty
             BeginProperty Column03 
                ColumnWidth     =   2085.166
             EndProperty
          EndProperty
       End
    End
    Attribute VB_Name = "frmTest"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Option Explicit
    
    '''当改变记录集时，需要刷新整个网格控件
    Sub RefreshGrid()
        grdTeach.DataMember = ""
        grdTeach.Refresh
        If DataEnv.rssqlSeek.State <> adStateClosed Then DataEnv.rssqlSeek.Close
        DataEnv.rssqlSeek.Open
        grdTeach.DataMember = "sqlSeek"
        grdTeach.Refresh
        
        ''刷新各个绑定控件
    '    Call grdScan_Change
    End Sub
    
    ''更新显示教师授课网格控件grdTeach
    Sub RefreshTeach(sSerial As String)
       grdTeach.DataMember = ""
       grdTeach.Refresh
    
       With DataEnv.rsOneTeach
          If .State <> adStateClosed Then .Close
          Dim str
           If sSerial = "" Then
             str = "select course.* from course, teach where course.serial=teach.courseid"
    
           Else
             str = "select course.* from course, teach where course.serial=teach.courseid and teach.teacherid = '" & sSerial & "'"
           End If
          .Open str
       End With
       grdTeach.DataMember = "oneteach"
       grdTeach.Refresh
    End Sub
    
    Private Sub cmdClear_Click()
       RefreshTeach "1111"
    End Sub
    
    Private Sub cmdUpdate_Click()
       RefreshTeach "0101"
    End Sub