一个很长的程序，没有耐心的毋进（送上300分，分批送）

Question

用跟踪调试，不过从问题看，一般都是SQL语句中order by ,group by前后的语法出现问题

Answer 1

你没发现这句话有点问题吗？
sql = "SELECT cust.*,io_del.*"
  sql = sql & "FROM io_del INNER JOIN cust ON io_del.cst_no=cust.cst_no"
  sql = sql & "ORDER BY io_del.csh_no Desc"
少空格！！
sql = "SELECT cust.*,io_del.*"
  sql = sql & " FROM io_del INNER JOIN cust ON io_del.cst_no=cust.cst_no"
  sql = sql & " ORDER BY io_del.csh_no Desc"
应该可以了

Answer 2

下面一个sql字符串连接同样有这个问题
建议你这样
sql = "SELECT cust.*,io_del.*" _
    & " FROM io_del INNER JOIN cust ON io_del.cst_no=cust.cst_no" _
    & " ORDER BY io_del.csh_no Desc"