備忘錄_20160105(定位)
修改
回首頁
程式 2026-06-26 15:05:14 1782457514 100
temp4
' Caller 範例
ReDim stra(0) As String
stra(0) = o正規化.strBig5("") ' varchar_銷貨單號
Dim strSQL As String
strSQL = getStrSQL讀取單頭備註(stra)
Private Function getStrSQL讀取單頭備註(stra() As String) As String
'
' ' Caller 範例
' ReDim stra(0) As String
' stra(0) = o正規化.strBig5("") ' varchar_銷貨單號
' Dim strSQL As String
' strSQL = getStrSQL讀取單頭備註(stra)
'
'
' -- 原始 SQL 劇本 -- SQL Packager / SQL 打包器 於 2026-06-26 15:03:49 產生
'
'
' select top 1
' a.單頭備註
' from
' (select
' rtrim(單頭備註) as 單頭備註,
' 1 as 優先值
' from
' 銷貨單頭
' where
' 銷貨單號={{varchar,銷貨單號}}
'
' union all
'
' select
' '' as 單頭備註,
' 2 as 優先值
' ) as a
' order by
' a.優先值 asc
' 程式開始
Dim str1 As String
str1 = ""
str1 = str1 & vbCrLf
str1 = str1 & "select top 1"
str1 = str1 & vbCrLf
str1 = str1 & " a.單頭備註"
str1 = str1 & vbCrLf
str1 = str1 & "from"
str1 = str1 & vbCrLf
str1 = str1 & " (select "
str1 = str1 & vbCrLf
str1 = str1 & " rtrim(單頭備註) as 單頭備註,"
str1 = str1 & vbCrLf
str1 = str1 & " 1 as 優先值"
str1 = str1 & vbCrLf
str1 = str1 & " from"
str1 = str1 & vbCrLf
str1 = str1 & " 銷貨單頭"
str1 = str1 & vbCrLf
str1 = str1 & " where"
str1 = str1 & vbCrLf
str1 = str1 & " 銷貨單號="
str1 = str1 & stra(0) ' {{varchar_銷貨單號}}
str1 = str1 & vbCrLf
str1 = str1 & " "
str1 = str1 & vbCrLf
str1 = str1 & " union all"
str1 = str1 & vbCrLf
str1 = str1 & " "
str1 = str1 & vbCrLf
str1 = str1 & " select"
str1 = str1 & vbCrLf
str1 = str1 & " '' as 單頭備註,"
str1 = str1 & vbCrLf
str1 = str1 & " 2 as 優先值"
str1 = str1 & vbCrLf
str1 = str1 & " ) as a"
str1 = str1 & vbCrLf
str1 = str1 & "order by"
str1 = str1 & vbCrLf
str1 = str1 & " a.優先值 asc"
str1 = str1 & vbCrLf
getStrSQL讀取單頭備註 = str1
End Function