问题现象: | 首先非常感谢你们的帮助。 用u8发货单控件时报:加载附件信息失败 。 方法如下: this.axctlVoucher1.setVoucherDataXML(ref head,ref body); 下面比较具体的代码 MSXML2.DOMDocument domHead = new MSXML2.DOMDocumentClass() as MSXML2.DOMDocument; MSXML2.DOMDocument domBody = new MSXML2.DOMDocumentClass() as MSXML2.DOMDocument; ADODB.Recordset rstHead = new ADODB.RecordsetClass() as ADODB.Recordset; ADODB.Recordset rstBody = new ADODB.RecordsetClass() as ADODB.Recordset; string sSql1; string sSql2; rstHead.CursorLocation = ADODB.CursorLocationEnum.adUseClient; rstBody.CursorLocation = ADODB.CursorLocationEnum.adUseClient; sSql1 = "Select * From " + this.axctlVoucher1.GetVoucherState().sBtViewTable + " where DLID = " + dlidcode; sSql2 = "Select *,'' as editprop From " + this.axctlVoucher1.GetVoucherState().sBwViewTable + " where DLID = " + dlidcode + " order by irowno "; rstHead.GetType().InvokeMember("Open",BindingFlags.InvokeMethod,null,rstHead,new object[]{sSql1,this.connString,ADODB.CursorLocationEnum.adUseClient,ADODB.CursorTypeEnum.adOpenStatic,ADODB.CommandTypeEnum.adCmdText}); //rstBody.GetType().InvokeMember("Open",BindingFlags.InvokeMethod,null,rstBody,new object[]{sSql2,this.connString,ADODB.CursorTypeEnum.adOpenStatic,ADODB.LockTypeEnum.adLockOptimistic}); rstBody.GetType().InvokeMember("Open", BindingFlags.InvokeMethod, null, rstBody, new object[] { sSql2, this.connString, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic }); rstHead.Save(domHead,ADODB.PersistFormatEnum.adPersistXML); rstBody.Save(domBody,ADODB.PersistFormatEnum.adPersistXML); //rstBody.Sort = "cInvCode ASC"; rstHead.GetType().InvokeMember("Close",BindingFlags.InvokeMethod,null,rstHead,new object[]{}); rstBody.GetType().InvokeMember("Close",BindingFlags.InvokeMethod,null,rstBody,new object[]{}); object head = domHead; object body = domBody; this.axctlVoucher1.setVoucherDataXML(ref head,ref body); |
问题原因: | |
解决方案: | 您好, 您的问题经提交需求/开发人员讨论,现需求/开发最终答复如下: ' 创建单据数据源对象 Dim m_oDataSource As Object Set m_oDataSource = CreateObject("IDataSource.DefaultDataSource") If m_oDataSource Is Nothing Then MsgBox "创建单据数据源对象Fail!", vbCritical, "错误" End If Set m_oDataSource.SetLogin = m_oLogin ctlVoucher1.LoginObj = m_oLogin ctlVoucher1.InitDataSource 如有问题,敬请及时邮件反馈! |
相关补丁: | |
版本: | 8.90 |
模块: | 销售管理 |
产品: | 供应链 |
问题名称: | 【双百项目】用u8发货单控件时报:加载附件信息失败 |
最后更新: | 2012-01-06 23:56:43 |