日志
- 分享 闲话小抄
- 酒可以当茶，茶不可以当酒； 诗可以当文，文不可以当诗； 曲可以当词，词不可以当曲； 月可以当灯，灯不可以当月； 笔可以当口，口不可以当笔； 婢可以当奴，奴不可以当婢。 文人讲武事，大 ...
- 分享 导出Excel主从表示例
-
公共模块 Public Function GetFolder() As String '文件及文件夹路径函数 Dim dlgOpen As FileDialog Dim i As Long, j As Long Set dlgOpen = Application.FileDialog(msoFileDialogOpen) With dlgOpen ...
- 分享 Excel之间数据传递
- Function GetFolder() As String '文件及文件夹路径函数 Dim dlgOpen As FileDialog Dim i As Long, j As Long Set dlgOpen = Application.FileDialog(msoFileDialogOpen) With dlgOpen .AllowM ...
- 分享 导出Excel函数
- ' 导出 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 ...
- 分享 用VB创建和修改查询
-
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 ...
- 分享 用VB创建和修改表
-
一、主窗体代码 Option Compare Database Dim strsql As String Dim strname As String Private Sub Form_Load() Me. 字段子窗体 .Form.AllowAdditions = False Me. 字段子窗体 .Form.AllowEdits = False Me. 字段子窗体 .Form.Al ...
- 分享 人民币大写函数
- Function RMB(x As Double) As String Dim i1 As Long, i2 As Long, j As Long, m As Long, strm(15) As String Dim strB1 As String, strB2 As String RMB = str(Round(x, 4)) j = InStr(1, RMB, ".", 1) If j = 0 Then strB1 = Trim(RMB) strB2 = "" Else st ...
- 分享 数组运用习作
- Private Sub Command2_Click() Dim rs As New ADODB.Recordset Dim sql As String, sqlf As String Dim strf(10) As String Dim i As Long, j As Long sql = "select * from temp" rs.Open sql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic i = 0 Do While Not rs.EOF i = i + 1 ...
- 分享 FSO,驱动器、文件
- 1、判断光驱的盘符： Function GetCDROM() 返回光驱的盘符(字母) Dim Fso As New FileSystemObject 创建 FSO 对象的一个实例 Dim FsoDrive As Drive, FsoDrives As Drives 定义驱动器、驱动器集合对象 Set FsoDrives = Fso.Drives ...
