4.7.12.21 LockRepDataDirectFor
作用：立即无条件锁定/解锁指定的报表数据。
              参数：参数1 – 模板的名字      
                       参数2 – 数据条件
格式：字段名称1 = 条件1；字段名称2 = 条件2；… …
                               (如果符合条件的报表数据有多份，则只锁定/解锁第一份数据)
                       参数3 – 锁定还是解锁，锁定（true）解锁（false）
       返回值：True —成功进入查看状态
                     False —不能进入查看状态     
示例：
Sub CommandButton1_Click()
                     ‘定义接口变量
           Dim sErr As String
              Dim sResult As String
Dim obj As Object 
                     ‘获取Excel.Net的编程接口
           Set obj = Application.COMAddIns.Item("prjAddin.Office_Addin").Object
              ‘通过接口调用LockRepDataDirectFor
           obj. LockRepDataDirectFor “订货单”,”订单号=1000”,true
                     ‘释放编程接口
           Set obj = Nothing
End Sub
       解说：该代码会执行立即锁定订单号是1000的订货单。
4.7.12.22 CurRepDataIsLocked
作用：判断当前报表数据是否被锁定。
              参数：没有
       返回值：True —已经锁定
                     False —未锁定    
示例：
Sub CommandButton1_Click()
                     ‘定义接口变量
           Dim sErr As String
              Dim sResult As String
Dim obj As Object 
                     ‘获取Excel.Net的编程接口
           Set obj = Application.COMAddIns.Item("prjAddin.Office_Addin").Object
              ‘通过接口调用CurRepDataIsLocked
           If obj. CurRepDataIsLocked then
                     Msgbox “该报表已经被锁定”
              End if
                     ‘释放编程接口
           Set obj = Nothing
End Sub
       解说：如果当前打开的报表已经被锁定，那么显示相应的信息。
4.7.12.23 DelRepData
作用：删除指定条件的报表数据。
              参数：参数1 – 模板的名字      
                       参数2 – 数据条件
格式：字段名称1 = 条件1；字段名称2 = 条件2；… …
                               (如果符合条件的报表数据有多份，则只删除第一份数据)
                       参数3 – 锁定还是解锁，锁定（true）解锁（false）
       返回值：= 0  – 正常完成
                     = -1  – 指定条件的报表数据不存在
                     = -2  – 没有删除数据的权限
                     = -3  – 删除失败
示例：
Sub CommandButton1_Click()
                     ‘定义接口变量
           Dim sErr As String
              Dim sResult As String
Dim obj As Object 
                     ‘获取Excel.Net的编程接口
           Set obj = Application.COMAddIns.Item("prjAddin.Office_Addin").Object
              ‘通过接口调用DelRepData
           obj. DelRepData “订货单”,”订单号=1000”
                     ‘释放编程接口
           Set obj = Nothing
End Sub
       解说：删除订单号是1000的订货单。
4.7.12.24 UpdateOperatorStatus
作用：停用或者启用指定人员。
              参数：参数1 – 人员的显示名称      
                       参数2 – “1” 停用，“0” 启用
       返回值：没有
示例：
Sub CommandButton1_Click()
                     ‘定义接口变量
           Dim sErr As String
              Dim sResult As String
Dim obj As Object 
                     ‘获取Excel.Net的编程接口
           Set obj = Application.COMAddIns.Item("prjAddin.Office_Addin").Object
              ‘通过接口调用DelRepData
           obj. UpdateOperatorStatus “曾工”,”1”
                     ‘释放编程接口
           Set obj = Nothing
End Sub
       解说：停用人员“曾工”。
4.7.12.25 ExpandRepeatArea_R
作用：填报时扩展重复数据行数据区域。
              参数：扩展的行数
       返回值：没有
示例：
Sub CommandButton1_Click()
                     ‘定义接口变量
           Dim sErr As String
              Dim sResult As String
Dim obj As Object 
                     ‘获取Excel.Net的编程接口
           Set obj = Application.COMAddIns.Item("prjAddin.Office_Addin").Object
                     ‘通过接口调用ExpandRepeatArea_R
           obj. ExpandRepeatArea_R 10
                     ‘释放编程接口
           Set obj = Nothing
End Sub
       解说：该代码会把当前光标所在的重复数据表扩展10行。
 
4.7.12.26 ExpandRepeatArea_L
作用：填报时扩展重复数据列数据区域（对列重复数据表有效）。
              参数：扩展的列数
       返回值：没有
示例：
Sub CommandButton1_Click()
                     ‘定义接口变量
           Dim sErr As String
              Dim sResult As String
Dim obj As Object 
                     ‘获取Excel.Net的编程接口
           Set obj = Application.COMAddIns.Item("prjAddin.Office_Addin").Object
                     ‘通过接口调用ExpandRepeatArea_L
           obj. ExpandRepeatArea_L 10
                     ‘释放编程接口
           Set obj = Nothing
End Sub
       解说：该代码会把当前光标所在的列重复数据表扩展10列。
 
4.7.12.27 GetDefaultSysDataRuleValue
作用：获取指定的系统数据数据规范的值。
              参数：数据规范的名称，
目前可以用的数据规范有如下几种：
登录用户姓名、登录用户所在机构、登录用户所在部门、当前日期、当前日期时间、月初、年初、登录用户角色、登录用户所在部门编码、系统顶级机构名称、当前年月
       返回值：指定的系统数据数据规范的值
示例：
Sub CommandButton1_Click()
                     ‘定义接口变量
           Dim sErr As String
              Dim sResult As String
Dim obj As Object 
                     ‘获取Excel.Net的编程接口
           Set obj = Application.COMAddIns.Item("prjAddin.Office_Addin").Object
                     ‘通过接口调用GetDefaultSysDataRuleValue
           Msgbox obj. GetDefaultSysDataRuleValue("登录用户姓名")
                     ‘释放编程接口
           Set obj = Nothing
End Sub
       解说：该代码会显示当前登陆用户的名字。