VB中的字符连接太麻烦了，特别是写SQL字符串时更麻烦，里面有单引号，双引号，逗号，连字符，变量等一大堆，乱七八糟的，搞得我晕头转向，稍不留神就会写错，还是Qt里的QString().arg()好用，简单明了，条理清晰。 受到QString().arg()的启发，把VB代码改成如下，这样就清晰多了，即使多写几行代码也是值得的。至于执行效率就不知道了。 - .................
strNewStyleNo = Replace(strStyleNamePattern, "___", strZeroForFill & i)
strCreatedBy = Application.UserName
dteCreateDate = Now()
strInsertValue = "VALUES('StyleNo','CreatedBy',#CreateDate#)"
strInsertValue = Replace(strInsertValue, "StyleNo", strNewStyleNo)
strInsertValue = Replace(strInsertValue, "CreatedBy", strCreatedBy)
strInsertValue = Replace(strInsertValue, "CreateDate", dteCreateDate)
strSql = "INSERT INTO ProductCode (StyleNo,CreatedBy,CreateDate) " & strInsertValue
..................................
|
