VS2010测试不通过是因为太讲究公式大小写和其他细节问题导致报错，唉真他杯具，很不方便，还得找原因
sqlvip = "SELECT SUBSTRING(stuff(stuff(txmsg,1,6,''),1,CHARINDEX('|',STUFF((txmsg),1,6,''))+2,''),1,CHARINDEX('|',stuff(stuff(txmsg,1,6,''),1,CHARINDEX('|',STUFF((txmsg),1,6,''))+2,''))-1),REVERSE(left(STUFF(REVERSE(trans.txmsg),1,2,''),CHARINDEX('|',STUFF(REVERSE(trans.txmsg),1,2,''))-1)),floor FROM trans,floortill where trans.txdate='" & Format(UserForm1.DTPicker1.Value, "YYYY-MM-DD") & "' and (trans.txtype=2 or trans.txtype=3) and trans.tillid=floortill.tillid
EXCEL 测试无问题 贴到VB2010死活报错 改了公式大小写还是报错 真的喷血
Dim strsql2 = "Substring(Stuff(Stuff(txmsg,1,6,''),1,Charindex('|',Stuff((txmsg),1,6,''))+2,''),1,Charindex('|',Stuff(Stuff(txmsg,1,6,''),1,Charindex('|',Stuff((txmsg),1,6,''))+2,''))-1),Reverse(Left(Stuff(Reverse(trans.txmsg),1,2,''),Charindex('|',Stuff(Reverse(trans.txmsg),1,2,''))-1)),floor from trans,floortill where trans.txdate='" & Format(Now, "yyyy-MM-dd") & "' and (trans.txtype=2 or trans.txtype=3) and trans.tillid=floortill.tillid"