U8版本11.1按钮二次开发

U8bobo

在按钮二次开发的时候，需要实现下面的其中一个或多个方法：
Public Function RunCommand(ByVal objLogin As Object, ByVal objForm As Object, ByVal objVoucher As Object, _
                            ByVal sKey As String, ByVal VarentValue As Variant, ByVal other As String)
End Function
'初始化
Public Function Init(ByVal objLogin As Object, ByVal objForm As Object, ByVal objVoucher As Object, msbar As Object)
End Function
'在执行系统按钮只前调用,Cancel后会不再执行系统方法。
Public Function BeforeRunSysCommand(ByVal objLogin As Object, ByVal objForm As Object, ByVal objVoucher As Object, _
                            ByVal sKey As String, ByVal VarentValue As Variant, ByRef Cancel As Boolean, ByVal other As String)
End Function

我的问题是：如何获取objForm和objVoucher里面的数据呢？我用快速监视的时候好像都是空的啊，但是objLogin不是空的，求大家帮助啊！

jojo_bj

1. Public Function RunCommand(ByVal objLogin As Object, ByVal objForm As Object, ByVal objVoucher As Object, _
   
2.                             ByVal sKey As String, ByVal VarentValue As Variant, ByVal other As String)
   
3.     Dim domh As New DOMDocument
   
4.     Dim domb As New DOMDocument
   
5.     Dim tmpnode As New DOMDocument
   
6. 
   
7.     objVoucher.getVoucherDataXML domh, domb
   
8.     domh.save "c:\domh.xml"
   
9.     domb.save "c:\domb.xml"
   
10.    MsgBox "my button"
    
11. End Function

复制代码

U8bobo

jojo_bj 发表于 2017-9-17 21:58

执行到这一句时objVoucher.getVoucherDataXML domh, domb，提示对象不支持该属性或方法，

也使用了strObjVoucher = objVoucher.bodyText(objVoucher.Row, "cInvCode")，在监视objVoucher.bodyText(objVoucher.Row, "cInvCode")时也提示对象不支持该属性或方法，但是在监视objVoucher.Row时，值正确且与界面上选择的行一样
是不是少引用了什么？objVoucher.getVoucherDataXML domh, domb或objVoucher.bodyText(objVoucher.Row, "cInvCode")一直有问题

liyunfei

objVoucher.getVoucherDataXML domh, domb
    domh.save "c:\domh.xml"
    domb.save "c:\domb.xml"
为啥是空的