Option Compare Database Private Const R As Single = 1000 Private Const PI As Single = 3.14159265357 Private x0 As Single, y0 As Single Private myline(1 To 6) As Line Private x(1 To 12) As Single, y(1 To 12) As Single Private W As Single, H As Single Dim H秒 As Single, W秒 As Single ...
一、函数 Function WDateToEDate(ByVal curTime As Date) As String Dim MonthAdd(11), NongliData(99), TianGan(9), DiZhi(11), ShuXiang(11), DayName(30), MonName(12), TermName(1 To 24), Fday(1 To 10, 1 To 10) Dim curYear, curMonth, curDay, curWeekday &n ...
公共模块 Public Function GetFolder() As String '文件及文件夹路径函数 Dim dlgOpen As FileDialog Dim i As Long, j As Long Set dlgOpen = Application.FileDialog(msoFileDialogOpen) With dlgOpen   ...
Function GetFolder() As String '文件及文件夹路径函数 Dim dlgOpen As FileDialog Dim i As Long, j As Long Set dlgOpen = Application.FileDialog(msoFileDialogOpen) With dlgOpen .AllowM ...
' 导出 Excel 函数 'Qname-- 查询名称 'Pfrmane-- 父窗体名称 'Ctlname-- 子窗体控件名称 'n--n=1 按子窗体, n=2 按子窗体数据源查询 Public Function myoutE(Qname As String, Pfrmname As String, Ctlname As String, n As Long) Dim myform As Form ...
Option Compare Database Dim Qdef As QueryDef Dim strsql As String Dim strname As String Private Sub Form_Error(DataErr As Integer, Response As Integer) Me.子窗体.Form.RecordSource = "成绩查询" End Sub Private Sub Form_Open(Cancel As Integer) Me.子窗体.Form.Rec ...