U8自定义按钮问题

develop2010

我在AA_CustomerButton里面插入了一行记录，是在质量管理里面的来料检验单上添加一个联查按钮的。
我在写代码的时候，想通过business对象来做一个联查，我想请问一下，在自定义按钮的代码里面怎样获得business对象?

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)
    If DBConn Is Nothing Then
        Set DBConn = New ADODB.Connection
        DBConn.Open objLogin.UfDbName
    End If
     ......................

End Function

dark_trooper

同样问题，需要学习一下，我这数据库中没有AA_CustomerButton，这张表，系统11.1

233333ff2233

一样的，需要好好的学习

233333ff2233

一样的，需要好好的学习

233333ff2233

一样的，需要好好的学习

leohh

高深的问题
同样求教

zhuyangzhao0602

高深的问题
同样求教

691439143

一样的，需要好好的学习。

mojianhong

我知道如何使用,代码较长,请与我联系!
部分代码如下:
Option Explicit

Implements UFPortalProxyInterface.ILoginable

Public Property Get Business() As Object
    Set Business = g_oBusiness
End Property

'Step 1
Public Property Set Business(ByRef bBus As Object)
    Set g_oBusiness = bBus  '获得business对象。
End Property

'Step 2
Public Function ILoginable_Login() As Boolean
    If ((Not g_oBusiness Is Nothing) And g_bLogined = False) Then
        Set g_oLogin = g_oBusiness.GetVBclsLogin() '获得login对象
        g_bLogined = True
        ILoginable_Login = True
    Else
        ILoginable_Login = Not g_oBusiness Is Nothing
    End If
End Function

Public Function ILoginable_LogOff() As Boolean
    '程序退出前,添加自己的代码
    ILoginable_LogOff = True '本行代码必须。
    g_bLogined = False '本行代码必须。
End Function


'Step 3
'CallFunction方法是二次开发程序的入口。即当用户双击二次开发节点时，U8门户会从接口类模块的CallFunction方法开始执行二次开发代码。
Public Function ILoginable_CallFunction(ByVal cMenuId As String, ByVal cMenuName As String, ByVal cAuthId As String, ByVal cCmdLine As String) As Object
    '开始执行业务代码
    'cMenuID、cmenuName、cAuthId、cCmlLine均为前述在UA_Menu表中注册的cMenu_Id、cMenu_Name、cAuth_Id、Paramters字段的值。
    'INSERT INTO UA_Menu(cMenu_Id, cMenu_Name, cSub_Id, IGrade, cSupMenu_Id,  bEndGrade, cAuth_Id, iOrder, iImgIndex)
    '            VALUES ('SAM030399', '装箱单*', 'DP', 2, 'SAM0303', 1, 'SAM030399', 0, 4)
    'Columns
      'Column Name            Description                                     Datatype       Length       Allow Nulls
      ' Paramters (U870)       参数，通过commandline，传给调用着              nvarchar       1024           True
      ' Depends (U870)         依赖的产品，如果依赖产品启用，此节点才显示     nvarchar        512           True
      ' Flag (U870)            =1，默认不显示，=8，此产品只支持中文             int            4            True
      ' AutoID (U861)          自动编号                                         int            4            False
      ' cMenu_Id (U861)        菜单编号                                       nvarchar         12           False
      ' cMenu_Name (U861)      菜单名称                                       nvarchar         60           False
      ' cMenu_Eng (U861)       菜单英文名称                                   nvarchar         60           True
      ' cSub_Id (U861)         模块标识                                       nvarchar          2           True
      ' IGrade (U861)          级次                                           smallint          2           True
      ' cSupMenu_Id (U861)     上级菜单编号                                   nvarchar          12          True
      ' bEndGrade (U861)       是否末级                                        bit              1           False
      ' cAuth_Id (U861)         关联功能编号                                   nvarchar         100          True
      ' iOrder (U861)          显示顺序号                                      int              4           False
      ' iImgIndex (U861)       图标索引号                                      int              4           False

shdong340

需要好好的学习。

dyo

自己实现逻辑。 objVoucher.addnew 貌似可以。

kinseybaby

好难哦。。。。。。。

dinghr

我也想知道，但我是要用C#.NET开发哦，有哪位大侠知道啊？？？

dinghr

我问下各位大侠，你们在做这块开发时需要引用哪些DLL,这个很重要，但U8安装目录下DLL很多，而且很多DLL不能引用到VB开发环境中，不知道谁知道？？？？主要是单据，窗体，控件，我已经知道U8单据列表控件需要引用U8Voucher（在文件夹ufcomsql下）

zhtliuhao

objVoucher 你应该找的是这个对象吧。

隋飞

需要好好的学习。

xjy2004

这个，要好好研究一下了

lzlcxl

学习了，解决了目前遇到的问题，谢谢