新增文章

文章标题 分类 C# 云星空 K3 BOS K3 功能 用友 Oracle python SQL MySql PHP HTML script windows Access 影视后期 财务 服务 生活 内容 Option Compare Database Option Explicit Dim 当前行号 As Long Dim 每页行数 As Integer Private Sub Report_Open(Cancel As Integer) DoCmd.Maximize End Sub Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer) 每页行数 = 3 当前行号 = 当前行号 + 1 If 当前行号 > 每页行数 Then Me.分页符1.Visible = True: 当前行号 = 0 Else Me.分页符1.Visible = False End If End Sub 返回 保存