求VS2005调用SAP的RFC的SourceCode....无限等待Help
求VS2005调用SAP的RFC的SourceCode....无限等待Help...... 
 求VS2005调用SAP的RFC的SourceCode....无限等待Help......
------解决方案--------------------我以前就是做SAP二次开发的,用.net2003调用SAP的,2005绝对一样 
 当时公司的客户VIP刷卡系统我就是这样做的 
 那时候信息中心.net就我一个人用,其他人都用dephi 
 以前这个对我是小菜,现在……555555555555555 
 硬盘坏了,代码都没了,连死的心都快有了   
 PS:楼主别就是我以前单位里的人啊,哈哈 
------解决方案--------------------http://blog.csdn.net/cissor/archive/2007/03/13/1527626.aspx
------解决方案--------------------顶1!!
------解决方案--------------------那个是SAP调.net   
 SAP里有个模拟操作录制的功能,可以看调用的代码,然后自己写也可以,不过最好是按他的标准调用功能模块 
 如果是简单的RFC,不用这么复杂,但是你要下载个sap的.net插件dll,sap官方网站上有
------解决方案--------------------VB的代码,仅供参考,自己改改就能放到vb.net中 
   Dim functionCtrl As Object              'Function Control (Collective object) 
   Dim sapConnection As Object          'Connection object 
   Dim theFunc As Object                  'Function object 
  Dim ls_material As String 
    'Create a function object 
   Set functionCtrl = CreateObject( "SAP.Functions ") 
   Set sapConnection = functionCtrl.Connection 
   If sapConnection.Logon(0, False)  <>  True Then 
       MsgBox  "No connection to R/3! " 
       Exit Sub                                            'End program 
   End If     
   Dim i As Integer 
   i = 7     
    Do While Worksheets( "Sheet1 ").Cells(i, 3)  <>   " " 
     ls_material = Sheet1.Cells(i, 3) 
     Set theFunc = functionCtrl.Add( "ZRFC_GET_MAKTX ")   
         theFunc.exports( "MATNR ") = ls_material           
        returnFunc = theFunc.Call 
        If returnFunc = True Then 
         Sheet1.Cells(i, 11) = theFunc.imports( "MAKTX ").Value           
         End If 
   i = i + 1 
  Loop    
    Sheet1.Cells(5, 11) =  "图号 " 
  functionCtrl.Connection.logoff 
 Set sapConnection = Nothing 
 Set functionCtrl = Nothing 
------解决方案--------------------楼主的问题解决了么,偶也想知道怎么调,贴一下学习学习吧