文档介绍：U8参照编程指南解析
U8参照编程指南解析
1 / 21
U8参照编程指南解析
U8 参照编程指南
下面所有参照 ID 只用来测试使用，不作最终的参照 ID
1、控件引用
num As String
strEnum = " 是 {#} 否 {##}yes{#}no"
Call (g_oLogin, strEnum, False, "")
、调用类型 3（数据库型）
U8参照编程指南解析
U8参照编程指南解析
6 / 21
U8参照编程指南解析
应用场景：对于参照的枚举数据需要从
格式定义：（ 其 XML 格式定义：
AA_Enum 中读取；
参照枚举元素据参数定义
.xml ）
U8参照编程指南解析
U8参照编程指南解析
21 / 21
U8参照编程指南解析
例如（示例格式为 XML 简写格式）：
Dim sXML As String
sXML = "<Ref><DataSrc>" & _
" <DataGrid provider='DB' cEnumTypeID=''
"</DataGrid>" & _
>"&_
U8参照编程指南解析
U8参照编程指南解析
21 / 21
U8参照编程指南解析
"</DataSrc></Ref>"
Call (g_oLogin, sXML, False, "")
U8参照编程指南解析
U8参照编程指南解析
21 / 21
U8参照编程指南解析
日历调用
直接设置属性：
=
计算器调用
直接设置属性：
=
自定义数据参照调用
属性设置：
=
元素据定义、显示数据完全有调用者实现
示例 1：树表结构窗体参照
示例 2：表结构窗体参照
示例 3：列表参照
下面将三个示例一起实现
第一步：初始化：
Call (Me, "inventory")
Call (Me, "warehouse")
Call (Me, "warehouse_list")
第二步：实现获取元素据方法
'------------------------------------------------
'功能：实现自定义参照的获取元素据
'------------------------------------------------
Public Sub GetSrvRefMeta(sRefID As String, sXML As String, MetaXML As String, sMsg As String, bFlag As Boolean)
Select Case LCase(sRefID)
Case "inventory"
MetaXML = "<Ref cRefName=' 存货自定义参照 ' cEntityKeyFld='cInvCode' cEntityNameFld='cInvName'> " & _
" <RefSet cCheckFlds='cInvCode,cInvName' iFilterStyle='1'>" & _
</RefSet>" & _
"<DataSrc>" & _
"<DataClass cDataSrcID='InventoryClass' cRefClsName=' 存 货 分 类 '
bRule='1' clsCode='cInvCCode' clsName='cInvCName' sortField='cInvCCode'/>" & _ "<DataGrid cDataSrcID='Inventory' clsCo