mojianhong 发表于 2011-2-13 10:30:47

单据控件VB二次开发

请看以下一段简易完整的关于单据控件的VB代码，为什么出现类型不匹配错误(注意红色标注部分,可以显示表格上面信息,如:单据编号,客户名称,......等等,但表格标题栏和内容没有显示）?!
Private Sub Command1_Click()
    Dim blogin As Boolean
    Dim LoginInfo As Object
    Dim clsLogin As Object
   
    Dim cn As New ADODB.Connection
    Dim sysID As String
    Dim rst As New ADODB.Recordset
    Dim o As Object
   
    Set LoginInfo = CreateObject("UFSoft.U8.Framework.LoginContext.UserData")
    Set clsLogin = CreateObject("UFSOFT.U8.FRAMEWORK.LOGIN.UI.clslogin")   '登陆用友
    sysID = "AS"
    blogin = clsLogin.login_2(sysID)            '("DP")'登陆成功后返回true
    If blogin = True Then
      Set LoginInfo = clsLogin.GetLoginInfo
    Else
      Exit Sub
    End If
   
    ' 创建登入对象
    Set m_Ologin = CreateObject("U8Login.clsLogin") '创建U8 Login对象
    If m_Ologin Is Nothing Then
      MsgBox "创建U6登录对象Fail!", vbCritical, "错误"
      End
    End If
    Call m_Ologin.ConstructLogin(clsLogin.userToken)
   
    cn.ConnectionString = LoginInfo.ConnString
    cn.Open
   
    Set o = CreateObject("UFVoucherServer85.clsVoucherTemplate")
    If o Is Nothing Then Exit Sub '如果创建对象Fail,则退出
    Set rst = o.GetTemplateData2(cn, "24", "27")
   
    ctlVoucher1.Visible = False
    Call ctlVoucher1.setTemplateData(rst)                     '出现“类型不匹配”错误！
    ctlVoucher1.Visible = True
End Sub
Private Sub ctlVoucher1_controlError(ByVal nErr As Long, ByVal Description As String)
    Debug.Print Description
End Sub

koko417 发表于 2016-6-27 00:55:38

Set LoginInfo = CreateObject("UFSoft.T3.Framework.LoginContext.UserData")   不能创建控件对象

yjihdn 发表于 2014-2-16 23:26:41


关注一下，学习学习。

jayjd1234 发表于 2013-11-12 10:32:31

关注一下，学习学习。

lijiayong5 发表于 2016-7-24 00:22:12


学习2开~关注下~

lijiayong5 发表于 2016-6-28 11:54:00


学习2开~关注下~

jetcool 发表于 2011-6-18 08:14:22

顶一个。请高手。

1015392766 发表于 2011-6-18 10:37:47

????????????????????

topunion009 发表于 2011-6-19 18:52:10

顶一下 啊。。

1015392766 发表于 2011-6-26 18:30:00

顶一个。请高手

zhangxinchaolc 发表于 2011-7-10 10:40:09

zh_ufdia 发表于 2011-8-16 16:17:51

请高手 帮忙

pat_song 发表于 2011-11-1 15:09:53

关注一下，学习中:):):)

shouzhuabing 发表于 2012-7-23 09:06:52

关注。。。。。{:soso_e100:}

nhzhigang 发表于 2012-8-8 10:46:49

学习学习，谢谢！

dongzuorun 发表于 2013-4-2 15:45:56

学习中。。。。。:)

mr.leizhu 发表于 2013-4-2 15:49:53

学习2开~:D关注下~
页: [1] 2
查看完整版本: 单据控件VB二次开发