表1有：日期，班次，产量1，产量2，品位   5个字段；

表2为临时表，有：日期，班次，产量1，产量2  4个字段；

    S = 0
    Do While S <= 2
        Select Case S
        C

    Dim ExcelDB As New ADODB.Connection
    Dim RS As ADODB.Record

    strSQL = "SELECT * FROM [tblOutput_raw]"
 

平台里面有GetAutoNumber函数，我定义一个入库单编号，前缀“RK”，日期“yyyymmdd”，顺序号3位，这样可以形成“RK20160830001”这样的编号，但是我不想让日期部