VB里一行内写不下

来源:百度知道 编辑:UC知道 时间:2024/06/14 10:02:30
Call openRs("SELECT tbl_SdIntf_Charge.BillNo" & _
"Retail.FDate, Goodses.GoodsID,Goodses.Name," & _
"RetailDtl.Unit, RetailDtl.Qty, RetailDtl.OPrice,RetailDtl.Amount," & _
"tbl_SdIntf_Charge.cardno, tbl_SdIntf_Charge.xming0,tbl_SdIntf_Charge.id0000," & _
"RetailDtl.Price, tbl_SdIntf_Charge.fzxmc0,tbl_SdIntf_Charge.grzhye,tbl_SdIntf_MGoodses.FPXMBH" & _
"FROM Goodses INNER JOIN RetailDtl ON Goodses.GoodsID = RetailDtl.GoodsID INNER JOIN" & _
"tbl_SdIntf_Charge ON RetailDtl.BillNo = tbl_SdIntf_Charge.BillNo INNER JOIN Retail ON" & _
"RetailDtl.BillNo = Retail.BillNo INNER JOIN tbl_SdIntf_Mapping" & _
"ON Goodses.GoodsID = tbl_SdIntf_Mapping.GoodsID INNER JOIN tbl_SdIntf_MGoodses ON" & _
"tbl_SdIntf_Mapping.MedGoodsID = tbl_SdIntf_MGoodses.XMBH00" & _
"where tbl_SdIntf_Charge.sfrq00 >= '" & Trim(Text1.Text) & "' and

Call openRs("SELECT tbl_SdIntf_Charge.BillNo" & _
"Retail.FDate, Goodses.GoodsID,Goodses.Name," & _
"RetailDtl.Unit, RetailDtl.Qty, RetailDtl.OPrice,RetailDtl.Amount," & _
"tbl_SdIntf_Charge.cardno, tbl_SdIntf_Charge.xming0,tbl_SdIntf_Charge.id0000," & _
"RetailDtl.Price, tbl_SdIntf_Charge.fzxmc0,tbl_SdIntf_Charge.grzhye,tbl_SdIntf_MGoodses.FPXMBH" & _
"FROM Goodses INNER JOIN RetailDtl ON Goodses.GoodsID = RetailDtl.GoodsID INNER JOIN" & _
"tbl_SdIntf_Charge ON RetailDtl.BillNo = tbl_SdIntf_Charge.BillNo INNER JOIN Retail ON" & _
"RetailDtl.BillNo = Retail.BillNo INNER JOIN tbl_SdIntf_Mapping" & _
"ON Goodses.GoodsID = tbl_SdIntf_Mapping.GoodsID INNER JOIN tbl_SdIntf_MGoodses ON" & _
"tbl_SdIntf_Mapping.MedGoodsID = tbl_SdIntf_MGoodses.XMBH00" & _
"where tbl_SdIntf_Charge.sfrq00 >= '" & Trim(Text1.Text) & "'