2015-10-09 60 views
0
Public Function VW_hrm(ByVal hrm_id As Object, 
ByVal hrm_code As String, 
ByVal art_naam As String, 
ByVal grp_id As Object, 
ByVal mrk_id As Object, 
ByVal page As Long, 
ByVal pagesize As Long, 
Optional ByVal sortering As Object = 1) As DataSet 

      Dim params(9) As Object 

      params(0) = System.Web.HttpContext.Current.Session("AdministratieID") 
      params(1) = art_id 
      params(2) = art_code 
      params(3) = art_naam 
      params(4) = Nothing 
      params(5) = ccInt(grp_id) 
      params(6) = ccInt(mrk_id) 
      params(7) = page 
      params(8) = pagesize 
      params(9) = ccInt(sortering) 
      params(10) = 0 

      Return GetData("SP_VW_hrm", params) 

End Function 
+0

什麼是你的問題? – zoska

回答

0

您需要的PARAMS設置爲10 喜歡這裏descrided:

暗淡PARAMS(10)爲對象

相關問題