用函数简化你的字符串连接语句
你讨厌使用&一堆连接变量吗?
'你一定要经常用""和" "吗?
'是这样的:
' strfilter = strfilter & "和[" & str fld name & "]like " " & strvalue & " " "
'
' strSql = " insert into TBL substyle(Class,Prop,value,Type,[Set],memo,flag)values(" " & _
' CTL。ControlType & " ',' " & _
' prp。Name & " ',' " & _
' prp。值& " ',' " & _
' prp。Type & " '," & _
' 2 & "," & _
' " ' '," & _
' false ")"
'
' str CNN = " Provider = SQL oledb;"& _
' "数据源= " & strServerName &"& _
' "初始目录= " & strDbname &"& _
' "用户Id = " & strUid &"& _
' " Password = " & strPwd & ";"
'
'使用它,gCombinationString,一个非常简单的函数,让冗长的代码更加简洁,增强语句的可读性
'下面是其使用的典型形式:
' strfilter = gco CNN(" $ 1和[] like" " " "、str filter,strfldname,str value)
' str CNN = gcc cn。数据源= $ 1;初始目录= $ 2;用户Id = $ 3;密码= $ 4;",_
' strservername,strdbname,struid,strpwd)
'参数个数不限,参数类型不限
' strsql = g组合字符串(" insert into TBL substyle(class,prop,Value,Type,[Set],memo,flag) " & _
' " values (' ',' ',' ',' ',,)",_ [/br/"控制类型。姓名,prp。值,prp。Type,2,False)
'
const strCharPre = " $ "
Dim varItem As Variant
Dim I As Integer
对于Para
I = I+1
strText = VBA中的每个变量,I = 0
。Replace(strText,strCharPre & i,varItem)
strText = VBA。Replace(strText,strCharPre & "\ ",strCharPre)
Next
gCombinationString = strText
End Function
0条评论