把Union All换成Union 如何用呢? 去掉All 提示错误!
cmd.CommandText = "InSert Into 订单 (" & sql1.Trim(",") & ")" & vbcrlf & cmd.CommandText.SubString(0,cmd.CommandText.Length - 11)
就不能减11了,应该减7吧。