第一步:在查询中增加一列: 全部订单号: GetAllOrderID("客户订单号码")
第二步:新建一模块,放上如下函数:
'要引用Microsoft ActiveX Data Objects 2.1
Public Function GetAllOrderID(wyID As String) As String
On Error GoTo Err_GetAllOrderID:
'wyID 外运号码
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.ActiveConnection = CurrentProject.Connection
rs.Open "发票基础", , adOpenStatic, adLockReadOnly, adCmdTableDirect
rs.MoveFirst
Do Until rs.EOF
GetAllOrderID = rs!客户订单号码 & " " & GetAllOrderID
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Err_GetAllOrderID:
Exit Function
End Function
第三步:将报表中客户订单号码的控件来源设为:全部订单号
如果需要示例,请QQ联系我.文件上传到服务器,占空间,所以我没有上传.
谢谢竹笛站长的及时指正!
是我知识太浅了,造成回帖失误,还得继续学习啊。
竹笛老师,您好!
我试了下您的代码,提示“用户定义类型未定义”,不知道问题出在什么地方。这种格式的报表工作中经常用到,您能不能把示例用QQ传给我?
谢谢!!
总记录:7篇 页次:1/1 9 1 :