函数库学习笔记

学习笔记

天津园林建设管理部(TJLAPM)

2017-2

目录

通用函数库......................................................................................5

1.PinYin()拼音码函数..........................................................................12

2.OpenADORecordset函数..................................................................12

3.CheckRequired函数.......................................................................12

4.HasPermission权限功能......................................................................13

5.窗体加载事件给组合框赋上行来源并实现智能筛选..............................................14

6.商品编码发生重复时提醒并自动跳转到重复项.................................................14

7.ApplyThemeMe'应用主题颜色............................................................15

8.SQLText函数...............................................................................15

9.刷新子窗体代码示例'RefreshDataList刷新窗体应用...........................................16

lO.ExportToExcel函数........................................................................17

11.行号能自动显示序号GetLineNumber([Form])....................................................................................................18

12.删除数据..................................................................................18

13.添加新商品”命令按钮......................................................................19

14.经办人和制单人改为组合框后，赋上默认值..................................................19

15.GetAutoNumber函数.....................................................................19

16.根据单据类型显示相关的订单号(级联筛选)...................................................20

17.日期选择...................................................................................20

18.根据条件改变子窗体数据源..................................................................21

19.DatePickerFor函数.......................................................................22

204雌件.......................................................................................22

21.ClearControlValues函数..................................................................24

22.禁止修改"最近采购日期"的相关设置......................................................24

23.Dcount.......................................................................................................................................................24

24.子窗体数据源改变..........................................................................25

25.窗体打开模式、OpenArgs传递.............................................................25

26.vba代码太长，换行........................................................................26

27.数据刷新...................................................................................26

28.快速书写SQL语句........................................................................26

29.CurrentDb.Execute执行sql语句...........................................................27

3O.Enabled属性与Locked属性的区别..........................................................28

31.SelectAIIListBoxItems函数................................................................29

32,LTrim,RTrim,及Trim函数示例.............................................................29

33.在窗体上显示当前记录和总记录数............................................................29

34.ForEachin...next详解用法................................................................30

35.DAO使用书签进行搜索并同步窗体的方法.....................................................31

36.SelectAIIListBoxItems函数.................................................................32

37.Dirty属性.................................................................................32

38.主子窗体计算...............................................................................33

39.VBA文件对话框(Application.FileDialog属性)的常用属性与方法的解释......................33

40.LoadRecord新平台........................................................................36

41.表关系.....................................................................................36

42.选择并添加商品.............................................................................37

43.审核按钮...................................................................................41

44.完成按钮...................................................................................43

45.错误2448,：您不能将数值指定给这个对象...................................................44

46.附件改进型.................................................................................45

47.输入框焦点变色...........................................................................45

48.撤消审核..................................................................................46

49.三种来源的区别............................................................................46

50.打开窗体图标显示错误.....................................................................47

51.打印后标记为已打印.......................................................................47

52.窗体打开后不加载数据.....................................................................47

53.批量更新拼音码.............................................................................47

54.数据直询模块..............................................................................48

55.通用查询如何实现默认当天或当月/本月或默认其它指定值....................................52

56.指定列表框或组合框中默认值的所在行......................................................54

57.智能筛选条件使用变量.....................................................................55

58.通用附件模块使用..........................................................................55

59.树控件报错................................................................................56

通用函数库

分类#函数名用途说明

1GetObjDesc取得数据库对象（表、查询、窗体、报表、宏、模块）的说明。

取得表中的唯一标识字段名，优先取设为主键的字段，如果没有主键，则取第1个存在的设为

2GetUniqueFieldName

无重复索引的字段。主键和索引仅限于单字段的情况下。

根据表名、查询名，取得一个无标记名称，主要用于去掉应用了命名约定时的一些额外的内容，

3GetUnsignedObjectName

Access对象如tbICustomers,返回Customer。

信息获取将指定表对象、查询对象、或DAO记录集对象中的字段信息，加载到一个AD。记录集中，并

4LoadFieldList

将记录集绑定到指定对象。

加载表、临时表、查询、窗体、报表几种类型的对象名称到一个支持Recordset的对象中（列

5LoadRDPObjectList表框、组合框、窗体）。对象可以是多种，用十号连接，rotTable+rotForm,传入的参数中

对象只有1种时，加载的记录集只有Name字段，否则会包含Name、Type字段。

6ExpandRibbon最大化/最小化功能区。

7IsChildForm判断指定窗体是否以子窗体形式打开。

判断窗体是否已打开。

Access对象8IsLoaded

状态判断及9NavPannelVisible判断导航窗格的可见性。

控制

10ObjectExists判断表、查询、窗体等数据库对象是否存在。

11ShowRibbon显示/隐藏功能区。

12ShowNavPannel显示/隐藏导航窗格。

13AAvgDAvg的ADO实现，默认使用到后台数据库的连接实现。

14ACountDCount的ADO实现，默认使用到后台数据库的连接实现。

15ADORunSQL用ADO方式一次运行一个或多个SQL操作查询语句，默认使用到后台数据库的连接。

ADO封装，数

16ALookup□Lookup的ADO实现，默认使用到后台数据库的连接实现。

据库连接

17AMaxDMax的ADO实现，默认使用到后台数据库的连接实现。

18AMinDMin的ADO实现，默认使用到后台数据库的连接实现。

19GetADOConnection返回后台数据库的AD。连接。

20GetODBCConnectionString取得后台数据库的。DBC连接字串。

21OpenADORecordset打开一个ADO记录集，默认使用到后台数据库的连接。

22SQLDate将一个日期格式化为符合SQL语法的格式。

SQL格式化

23SQLText将一个字符串格式化为符合SQL语法的格式。

24DeleteRegKey删除注册表键值。

Windows注

25GetRegKey取得注册表键值。

册表读写

26SaveRegKey保存注册表键值。

27GetDbSetting取得自定义数据库属性。

28GetFormProperty取得自定义窗体属性。

29GetParameter取得本地或全局系统参数的值。

参数读写

30SaveDbSetting保存自定义数据库属性。

31SaveFormProperty保存自定义窗体属性。

32SetParameter设置本地或全局系统参数。

33GetKeyState获取指定按键的状态。

34LockWindowUpdate锁定窗口，禁止更新。

窗口控制

35MoveWindow移动指定窗口（以像素为单位）。

36UpdateWindow立即更新窗口。

37DatePickerFor在指定控件（一般为文本框）下方显示日历，并返回在日历中点击选择的日期作为控件值。

38GetSaveAsFileName显示一个另存为对话框，并返回用户通过对话框选择的另存为文件路径名。

VBA内置的MsgBox函数的扩展，增加了根据不同的图标自动显示不同的标题，以及指定时间

对话框39MsgBoxEx

内自动关闭的功能。

40PickColor显示一个颜色对话框，并返回用户通过对话框选择的颜色值。

41PickFile显示一个文件选择对话框，并返回用户通过对话框选择的一个或多个文件的路径名•

42PickFolder显示一个树形结构的目录选择对话框，并返回用户在对话框中选择的文件夹的路径.

43MessageBeep根据不同的消息类型发出声音。

多媒体

44PlaySound播放指定的声音。

45DES3DES对称加密。

加密/解密

46MD5MD5文本摘要计算。

47FirstDayOfMonth返回指定日期所在月份的第一天。

48LastDayOfMonth返回指定日期所在月份的最后一天。

日期处理

49FirstDayOfWeek返回指定日期所在周的第一天。

50LastDayOfWeek返回指定日期所在周的最后一天。

51GetLunarDate将日期转换为中国农历（中文格式或数字格式）。

52LunarToChrist将农历日期转换为公历日期。

上传下载53URLDownloadToFile根据URL路径从网络下载文件到本地。

54CheckAIITreeNodes将整个TreeView（或指定节点下）所有节点前面的复选框勾选/取消勾选。

树控件55ExpandAIITreeNodes将整个TreeView（或指定节点下）所有节点展开或折叠。

(TreeView)

56GetTreeNodeLevel取得TreeView中指定节点的层级数。

57TreeNodeExists判断TreeView中指定索引或键对应的节点是否存在。

58ExportToExcel将当前数据表视图中的数据导出到Excelo

数据导入导

出59ImportFromExcel从Excel导入数据。

60CheckRequired根据Tag属性中的标记，验证数据编辑窗体中的必填项是否为空，并自动提示。

数据录入辅检查窗体上的所有设置了标记的输入控件，验证其文本长度是否超过了允许的最大长度，如果

61CheckTextLength

助有则显示提示消息。

62ClearControlValues清空所有控件的值。

63GetLineNumber取得窗体记录集中的动态行号。

64RequeryDataObject刷新数据，并自动定位到刷新之前的行。

65SelectAIIListBoxItems全选/取消全选列表框中的项（列表框需要允许全选）。

66RoundDown向下取整，只舍不入。

数值处理67Roundoff四舍五入。

68RoundUp向上取整，只入不舍。

数组69GetArrayltemlndex取得指定数组项的索引值。

70CreateMultiDir创建多级目录，不需要像MkDir那样必须一级一级的创建。

71PathFileExists判断文件夹或文件是否存在。

文件、目录操

72PathFileOperation移动、删除、复制、重命名整个文件夹，或者多个文件，主要用于文件的批量操作。

作

73CAB将指定文件进行压缩打包生成CAB格式压缩文件。

74UnCAB将CAB格式压缩文件解压出来另存为指定文件路径名•

75GeBaseBoardld取得主板序列号。

76GetDiskDriveld取得硬盘序列号。

硬件信息获77GetlPV4Address取得本机的IPV4地址。

取78GetlPV6Address取得本机的IPV6地址。

79GetMACAddress取得网卡的物理地址。

80GetProcessorld取得CPU序列号。

指针形状控81SetCursor设置鼠标指针为指定的内置样式。

制82SetHandCursor设置鼠标指针为手形。

83CnDate将日期转换为中文大写日期。

中文格式转

84CnMoney将一个货币类型的数字转换为中文大写金额。

换

85CnNumber将阿拉伯数字转换为中文大写数字。

86LoadLocalLanguage加载本地语言。

资源加载

87LoadPictureTolmageList加载lmages\lcons文件夹中的所有图标到指定ImageList控件。

88Loadstring根据Key加载本地化字符串。

89RandomPicture取得一个存在的随机图片的路径名。

90ComputerlD根据CPU、主板、硬盘信息生成一个唯一标识码。

自动编号91GetAutoNumber根据预定义的规则，生成一个自动文本型编号。

92GetGUID生成一个全球唯一标识码。

93CountStr查询一个字符串在另一个字符串中出现的次数。

字符串处理

94RepeatStr将指定字符串进行多次重复。

95CompressFile将压缩为CAB文件，或从CAB文件中解压出来。使用Windows自带功能，减少依赖性。

96CopyToLocalTable将表对象复制为一个本地表对象。

创建一个UMVSupportLibrary.ucl支持库文件中类模块的新实例，仅包括：PopupProgressBar,

97Createlnstance

GeneralQuery,FileSearch,FTPServer。

其它98HideAIITables隐藏/显示所有表。

99IsInternetConnected判断是否连接到互联网。

100Reportsheet在打印报表时自动画表格。

101ShellExecute打开程序、文件、超链接，运行命令行等。

102Sleep让程序暂停指定毫秒数。

103WriteOperationLog写入操作日志。

新增一一保存-单击

DimrstAsObject

DimstrSQLAsString

DimMaxIDAsString

DimcurrentIDAsString

DimstrFrmAsString

IfIsNull(Me.txtygxm)Then

MsgBox”请输入员工姓名!，vbCritical,"提示”

Me.txtygxm.SetFocus

ExitSub

EndIf

MaxID=DMaxf'tyglD]","tbICodeyg")

currentID="Y"&Format(Val(Right$(MaxlD/2)+1),"00")

strSQL="select*fromtbICodeyg"

Setrst=CurrentDb.OpenRecordset(strSQLzdbOpenDynaset)

rst.AddNew

rst!yglD=currentID

rstlygxm=Me.txtygxm

rst.Update

rst.Close

Setrst=Nothing

Me.txtygxm=Null

strFrm=Form_frmYg_sg_Main!frmChild.Sourceobject

Form__frmYg_sg_Main!frmChild.SourceObject=strFrm

MsgBox”您录入的数据保存已成功！，vblnformation,“消息”

修改----加载

DimrstAsObject

DimstrSQLAsString

DimcurrentIDAsString

currentID=Form_frmyg_sgJist.Form.yglD

strSQL="select*fromtbICodeygwhereygID="'¤tID&

Setrst=CurrentDb.OpenRecordset(strSQL,dbOpenDynaset)

rst.MoveFirst

Me.txtygxm=rstlygxm

rst.Close

Setrst=Nothing

修改---保存-单击

DimrstAsObject

DimstrSQLAsString

DimcurrentIDAsString

DimstrFrmAsstring

IfIsNull(Me.txtygxm)Then

MsgBox”员工姓名不允许空缺，请录入相关数据！:vbCritical,”提示“

Me.txtygxm.SetFocus

ExitSub

EndIf

currentID=Form_frmYg_sg_List.Form.yglD

strSQL="select*fromtbICodeygwhereygID='"¤tID&

Setrst=CurrentDb.OpenRecordset(strSQL,dbOpenDynaset)

rst.MoveFirst

rst.Edit

rst!ygxm=Me.txtygxm

rst.Update

rst.Close

Setrst=Nothing

DoEvents

strFrm=Form_frmYg_sg_Main!frmChild.SourceObject

Form_frmYg_sg_Main!frmChild.SourceObject=strFrm

MsgBox”您提交的数据更新已完成！，vblnformation,“消息”

DoCmd.CloseacForm,"frmYg_sg_Edit"

刖除-单i

DimstrSQLAsString

DimcurrentIDAsString

currentID=Form_frmYg_sg_List.Form.yglD

strSQL="DELETEtbICodeyg.*FROMtbICodeygWHEREyglD='"¤tID&

IfMsgBox("您确认要删除当前已选择的记录么？",vbOKCancel,"提示")=vbOKThen

DoCmd.SetWarningsFalse

DoCmd.RunSQLstrSQL

DoCmd.SetWarningsTrue

DoEvents

Form_frmYg_sg_Main!frmChild.SourceObject=Form_frmYg_sg_Main!frmChild.SourceObject

MsgBox"您所选择的记录已被删除!",vblnformation,"消息"

EndIf

1.PinYin()拼音码函数

Me!拼音码=PinYin(Me!供应商名称)

2.OpenADORecordset函数

打开并返回一个ADO记录集。

语法

OpenADORecordset(RecordSource[,LockType][,Connection])

必需/

参数名称数据类型说明

可选

记录集数据源。一般是一个SQL语句，注意该语句需要符合对应的

RecordSource必需String

后台数据库的SQL语法，而不能完全使用Access的SQL语法。

记录集锁定类型。如果省略此参数，将默认使用adLockReadOnly,

LockType可选ADOLockTypeEnum

即返回一个只读记录集。

ADO连接对象(ADODB.Connection)或连接字符串。只有当需要打

Connection可选Variant开至其它数据库的连接的时候才用到该参数。如果省略此参数，将

默认使用GetADOConnection函数的返回值连接至后台数据库。

返回值

记录集正确打开时返回对应的ADO记录集(ADODB.Recordset),打开失败时返回Nothing。

说明

对ADO记录集的打开所做的二次简化封装，只需要一行代码即可实现ADO记录集的打开，从而更加简单易用。

原型

PublicFunctionOpenADORecordset(RecordsourceAsString,_

OptionalLockTypeAsADOLockTypeEnum=adLockReadOnly,_

OptionalConnectionAsVariant_

)AsObject

相关引用

OpenADORecordset函数

示例

'打开客户信息表对应的只读记录集

Setrst=OpenADORecordset("SELECT*FROM客户信息表")

'打开客户信息表对应的只读记录集并将其绑定到组合框

SetMe.cboCustomer.Recordset=OpenADORecordset("SELECT*FROM客户信息表”)

3.CheckRequired函数

检查窗体上的所有设置了标记的输入控件的值是否为空，如果有为空的输入控件则显示提示消息并自动将焦点移

到该控件。

示例

PrivateSubbtnSave_Click()

IfCheckRequired(Me)ThenExitSub'如果有必填项为空，则退出过程不再继续保存操作

IfCheckTextLength(Me)ThenExitSub'如果有文本字段的长度超过最大长度，则退出过程不再继续保存操作

'其它保存数据相关的代码

EndSub

4.HasPermission权限功能

PrivatemdctPermissionListAsCollection

PrivateSubForm_Open(CancelAsInteger)

'其它代码省略

'btn添加分类、btn修改分类、btn删除分类这3个按钮均通过〃商品分类树维护〃这一个权限项来控制

Me.btn添加商品分类.Enabled=mdctPermissionList("商品分类树维护”)

Me.btn修改商品分类.Enabled=mdctPermissionList("商品分类树维护”)

Me.btn删除商品分类.Enabled=mdctPermissionList("商品分类树维护")

EndSub

PrivateSubForm_Open(CancelAsInteger)

SetmdctPermissionList=LoadPermissions(“库存查询，Me)

IfNotmdctPermissionList("<AccessModule>")Then

ExitSub

EndIf

ApplyThemeMe'应用主题颜色

EndSub

序号”模块名称关联菜单允

1供应商信息供应商信息

02客户信息客户信息

93商品信.商品信息

许

序T功能名称0

新增\0

2CopyToNew0

编辑0

删除0

5导入0

6导出0

7Refresh0

8关闭^

9商品分类树维护

EnableButtonMe.btn添加商品分类,HasPermission（"商尾棺息"，"商品分类树维护"）

EnableButtonMe.btn修改商品分类,HasPermission（"商品信息"商品分类树维护"》

EnableButtonMe.btn删除商品分类,HasPermission（"商品信息"，嘀品分类树维护"）

使用方法：HasPermission（"模块名称"，"权限名称"）返回：True或者False

应用：Me.btnAudit.Enabled=HasPermission（"采购订单管理"，"审核"）

5.窗体加载事件给组合框赋上行来源并实现智能筛选

PrivatemclsSC商品IDAsNewSearchComboBox'声明一个组合框动态筛选类并将其实例化

PrivateSubForm_Load()

mclsSC商品ID.InitCombo:=Me.商品ID,_

SearchField:="商品编码&品名规格&拼音码",_

SQLSELECT:="商品ID,商品编码，品名规格，单位，最新进价AS单价",

SQLFROM:="商品信息表"，一

SQLWHERE:="已停用=0",_

SQLORDERBY:="品名规格，商品编码"

EndSub

PrivateSubForm_Close()

mclsSC单位名称:Nothing，对象清空

EndSub

说明：

SearchField:指要搜索的字段有哪些

SQLSELECT:指SQL代码

SQLWHERE:指条件

SQLORDERBY：指排序方式

PrivateSub商品ID_AfterUpdate。

Me.品名规格二Me.商品ID.Column(2),2代表第3歹！J,下同

Me.单位=Me.商品ID.Column(3)

Me.库存数量二Me!商品ID.Column⑷

Me.成本价=Me!商品ID.Column(5)

Me.售价二Me!商品ID.Column⑹

Me.单价二Nz(Me.售价,Me.单价)

Me.数量=Nz(Me.数量,1)

Me.已出库数量=0

Me.Dirty=False

EndSub

6.商品编码发生重复时提醒并自动四炼专到重复项

将字段〃商品ID〃设置为主键

PrivateSubForm_Error(DataErrAsInteger;ResponseAsInteger)

ConstconDuplicateKey=3022

DimstrMsgAsString

Debug.PrintDataErr

IfDataErr=conDuplicateKeyThen

Response=acDataErrContinue

strMsg二”商品编码不允许重复，请重新选择！”

Me.商品ID.SetFocus

MsgBoxstrMsg,vbCritical,"提示"

Me.商品ID=Null

Me.undo'可使用Undo方法清除对某个包含无效输入的记录的更改

EndIf

EndSub

自动跳转方法：

PrivateSub商品ID_AfterUpdate()

OnErrorGoToErrorHandler

DimstrlDAsString

Me!商品编码二Me.商品ID.Column(l)

Me.品名规格二Me.商品ID.Column(2)

Me.单位二Me.商品ID.Column(3)

Me.单价=Me.商品ID.Column⑷

Me.数量=Nz(Me!数量,1)

Me.己入库数量=0

Me.Dirty=False

ExitHere:

ExitSub

ErrorHandler:

SelectCaseErr

Case3022

MsgBoxEx"同样的商品不能重复添加，请直接修改数量。vbExclamation,"提示”

3trlD=Me.商品ID

Me.Undo

Me.Recordset.MoveFirst

Me.Recordset.FindFirst”商品ID="&stride，&SQLText(strlD)

Me.数量.SetFocus

CaseElse

MsgBoxExErr.Description,vbCritical

EndSelect

ResumeExitHere

EndSub

7.ApplyThemeMe'应用主题颜色

8.SQLText函数

返回经过SQL语法格式化处理的字符串。

strSQL="DELETEFROMCustomersWHERECustomerName=""&Me.txtCustomerName&"*"，常规写法，含有单引

号时会出错

strSQL="DELETEFROMCustomersWHERECustomerName="&SQLText(Me.txtCustomerName)'使用SQLText函数的

写法，不会出错

9.刷新子窗体代码示例\RefreshDataList刷新窗体应用

用示例中子窗体frm到站来举例：

第一步.在编辑窗体《保存按钮单击事件里》加上

Form_frm到站.RefreshDataList'调用子窗体里自定义刷新函数。如下图

XIISL.EU1'

国Form_Tempiate_Forrst.AddNew

图Formfrm至l|站_____EndIf

至］站rst!［到耕］=Me!倒因

Form£rmlEditrst!［车重］=Me!［车看］

国Form_£rm到站_Listrst.Update

图Form_SysFrmAboutMe!［ID］=rst!［ID］

rst.Close

国Form_SysFrmkctivat

国Form_SysFrmAutoNuir三£ortn_丘m到蟹Refr此州ataidst'调用子窗体(£rm到站)里自定义刷新函数

国Form_SysFrmChangeFMsgBoxKx"保存成功！”,一vblntormation

匡］Form_SysFrmDataMoc

IfMe.DataEntryThen

图Form__SysFrmDbServeClearControlValuesMe

图Form_SysFrmDeveloiElse

FZHIFAvmSTJURVERTPSOVT.DoCmd.CloseacForm?Me.Name,acSaveNo

第二步.在子窗体frm到站里加上自定义刷新函数及触发事件就OK了

PublicSubRefreshDataList()'自定义函数，供编辑窗体调用

Me.Timerlnterval=200’0.2秒后执行触发事件Form_Timer()来刷新子窗体

EndSub

PrivateSubForm_Timer()

RequeryDataObjectMe.sfrList涮新绑定窗体中的数据

Me.Timerlnterval=0

EndSub

如下图

FslForm_Tempiate_ForResumeExitHere

Form£rm到站EndSub

l：§］Formfrm^l|?t5Edit

图Form_£rm到站JListPublicSubRefreshDataList0自定义的数上供强辑窗体调用

图Form_SysFrmAboutMe.TimerInterval=200，0.2秒后岚行触发事件丁orm_Timer()来刷新子窗体

EndSub

图Form_SysFrmActivat

图Form_SysFrmAutoNwrFrlVR«queryD^bjectrMe.sfrLisi用输的额据，并重新定位到原来记录行或满足指定条件的行上。

RslForm_SysFrmChangeF

EndSub_______________________________________________________________________________________________________________

国Form_SysFrmDataMoc

Q新墙岩编辑X删除⑥打印预览哥打印畛导入咤导出

—H包含团|11朝]

查占条件-------------------------------------------------------------------------------

ID到站一；车矍这是平台通用查询

1兰州165.68

c—士r1-7C匚c

另外:假如子窗体还带上平台通用查询，那还要加上一段代码

IfmclsQueryIsNothingThen'若用到平台通用查询，就要加上这段，否则查询会出错

CallForm_Load

Else

mclsQuery.DataForm=Me.sfrList.Form

EndIf

如下图：

PrivateSubForm_Timer()，计时器触发事件

RequeryDataObjectMe.sfrList'输薪奔走窗体中的数据，并重新定位到原来记录行或薪足指定条件的行上。

IfmclsQueryIsNothingThen'若用到斗台通用查询，就要加上这段，否则查询会出错

CallFormLoad

Else

mclsQuery.DataForm=Me.sfrList.Form

EndIf

Me.Timerinterval=0

EndSub

总结：

此文自定义RefreshDataList函数作用是调用RequeryDataObject刷新函数

RequeryDataObject才是快速平台刷新窗体真正函数，它定义在代码库里。

意思是刷新绑定窗体中的数据，并重新定位到原来记录行或满足指定条件的行上。

相关示例

SubTest()

RequeryDataObjectMe，刷新当前窗体中的数据

RequeryDataObjectMe.sfrOrderDetail，刷新sfrOrderDetail子窗体中的数据

RequeryDataObjectMe.sfrOrderDetail,"OrderlD=144"，刷新sfrOrderDetail子窗体中的数据，并重新定位到

OrderlD等于144的记录行

EndSub

PrivateSubForm_Timer0

RequeryDataObjectMe.sfrList

IfmclsQueryIsNothingThen一一

'CallForm_Load

SetmclsQuery=NewGeneralQuery