为什么我的String 的最大长度只有 310 个字符？

2004-09-02 03:26:07 289 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

SAP SD核心流程解析：从销售订单到财务结算的实战指南本文深入解析SAP SD模块从销售订单到财务结算的核心流程，重点剖析了销售订单中的行项目类别如何作为流程的“总开关”，决定了后续交货、开票及财务集成的走向。文章结合实战案例，详细拆解了正常销售、退货、第三方销售、寄售等典型流程的配置要点与国内化适配方案，并阐述了SD与财务模块集成的关键连接点，为顾问和用户提供了一份全面的实战指南。阅读详情

Private Function GetSQL() As String
Dim strSQL As String

If Combo_JSLX.Text = "到货" Then
'查询到货
strSQL = "select a.cgjsbh 结算编号, b.ghsmc 供货商名称, a.cgbh 采购编号, a.jsrq 结算日期, a.jszl 结算种类," & _
"a.jssl 结算数量, a.jsmy 结算码洋, a.jssy 结算实洋, c.ygmc 结算人 " & _
"from cgjs a, ghsbm b, tsygbm c " & _
"where a.ghsbh = b.ghsbh and a.ysrbh = c.ygbh "
Else
strSQL = "select a.thjsbh 结算编号, b.ghsmc 供货商名称, a.thbh 退货编号, a.jsrq 结算日期, a.jszl 结算种类," & _
"a.jssl 结算数量, a.jsmy 结算码洋, a.jssy 结算实洋, c.ygmc 结算人 " & _
"from thjs a, ghsbm b, tsygbm c " & _
"Where a.ghsbh = b.ghsbh And a.ysrbh = c.ygbh "
End If

'确定期间

strSQL = strSQL & "where trunc(jsrq) >= to_date('" & sRQ.Value & "','yyyy-mm-dd') and trunc(jsrq) <= to_date('" & eRQ.Value & "','yyyy-mm-dd') "

Dim nLen As Long
nLen = Len(strSQL) '字符丢了！！！！！！！！！！！！！！1
GetSQL = strSQL
End Function

...全文