专家坐堂-请教调用储存过程后输出结果断节问题！Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If _db00.DataRows.Count > 0 Then \'如果有查询到记录

pb01=1

pb02=_db00.DataRows.Count \'保存最大记录数

For Each dr1 As DataRow In _db00.DataRows \'收集入库单号

dr1("rkdh01")=Nothing \'用于集中填写入库单号

dr1("lldh01")=Nothing \'用于集中领料单号

dr1("cgdh01")=Nothing \' 用于集中收集采购单号

pb01=pb01+1 \'进度条+1

pb1.Value=round2(pb01/pb02*100,0) \'显示进度条最大数

If pb1.value>100 Then pb1.value=100

pb1.Visible=True

str01=dr1("DOC_NO").trim() \'指令单号

str02=dr1("ITEM_CODE").trim() \'产品编号

str03=dr1("i2icode").trim() \'材料号

Dim s As new StringBuilder \'大规模字符串合并

\'\'------------------以下是收集产品入库单号

str04=Nothing

\'----------以下是获取入库单号,领料单号,采购单号过程调用

Dim cmd9 As new sqlcommand

cmd9.C

cmd9.commandtext="mo_docno_01"

cmd9.StoredProcedure=True

cmd9.Parameters.add("@str01",str01) \'输入参数\'指令单号

cmd9.Parameters.add("@str03",str03) \'输入参数\'材料编号

cmd9.Parameters.add("@mr1no"," ",True) \'输出参数

cmd9.Parameters.add("@lldh01"," ",True) \'输出参数

cmd9.Parameters.add("@cgdh01"," ",True) \'输出参数

cmd9.ExecuteNonQuery

dr1("rkdh01")=cmd9.parameters("@mr1no") \'用于汇聚入库单号

dr1("lldh01")=cmd9.parameters("@lldh01") \'用于集中领料单号

dr1("cgdh01")=cmd9.parameters("@cgdh01") \' 用于集中收集采购单号

\'----------以是上获取入库单号,领料单号,采购单号过程调用

end if