请帮我解读一下,越详细越好,3Q~!

anwb　发表于：2009-03-19 16:00:47 　

Private Sub CommandButton1_Click()
    If UserLevel = 2 Then
        DoCmd.OpenForm "设备类别维护", , , , , acDialog
        RequeryView
    Else
        MsgBox "你没有设备类别维护权限", vbCritical, "警告"
    End If
End Sub

Private Sub Form_Resize()
Me.ListView.Width = Me.InsideWidth
Me.ListView.Height = Me.InsideHeight - Me.窗体页眉.Height - Me.窗体页脚.Height
End Sub

Private Sub ListView_ColumnClick(ByVal ColumnHeader As Object)
Call ViewOrder(Me, ColumnHeader.Index)
End Sub

Public Sub RequeryView()
    Dim I As Integer
    Dim itmX As ListItem
    Dim rst As Recordset
    DoCmd.Echo False
    Me.ListView.ListItems.Clear
    Set rst = CurrentDb().OpenRecordset(Me.RecordSource)
    Do While Not rst.EOF()
        Set itmX = Me.ListView.ListItems.Add(, "K" & rst(0), Nz(rst(0)))
        For I = 1 To rst.Fields.Count - 1
            itmX.SubItems(I) = Nz(rst(I))
        Next
        rst.MoveNext
    Loop
    DoCmd.Echo True
End Sub

Private Sub ListView_DblClick()
Call CommandButton7_Click
End Sub

Top

竹笛发表于：2009-03-19 16:13:54

解释前面两个子程序：

Private Sub CommandButton1_Click()'当操作员单击CommandButton1按钮时
    If UserLevel = 2 Then'如果用户等级为2就以对话框方式打开　设备类别维护　窗体并执行RequeryView子程序
        DoCmd.OpenForm "设备类别维护", , , , , acDialog
        RequeryView
    Else
        MsgBox "你没有设备类别维护权限", vbCritical, "警告"
    End If
End Sub

Private Sub Form_Resize()'当窗体的大小发生变化时
Me.ListView.Width = Me.InsideWidth'让ListView的宽度等于窗体的宽度
Me.ListView.Height = Me.InsideHeight - Me.窗体页眉.Height - Me.窗体页脚.Height'让ListView的高度根据窗体的高度变化
End Sub

Top

总记录：1篇页次：1/1 9 1 :

Access交流中心

请帮我解读一下,越详细越好,3Q~!