automation 错误

Question

如何解决??????????

Answer 1

Cmb_post.clear
Cmb_post.text = "预付"
Cmb_post.AddItem "全部"
Cmb_post.AddItem "预付"
Cmb_post.AddItem "到付"    Cmb_FP.clear
    cmb_mfdep.clear
    Cb_fdep.clear
    cmd_uparea.clear
    Cmb_dayarea.clear
    Set RS = New ADODB.Recordset
    zw = "FilialeName like '%广州%'"
    Call SBASEARCH(RS, "FilialeName", " Tbl_FilCo", zw)
    If Not RS.EOF Then
        Cmb_FP.text = Trim(RS.Fields(0).Value)
        cmb_mfdep.text = Trim(RS.Fields(0).Value)
        Cb_fdep = Trim(RS.Fields(0).Value)
        cmd_uparea = Trim(RS.Fields(0).Value)
        Cmb_dayarea = Trim(RS.Fields(0).Value)
        For i = 1 To RS.RecordCount
            Cmb_FP.AddItem Trim(RS.Fields(0).Value)
            cmb_mfdep.AddItem Trim(RS.Fields(0).Value)
            Cb_fdep.AddItem Trim(RS.Fields(0).Value)
            cmd_uparea.AddItem Trim(RS.Fields(0).Value)
            Cmb_dayarea.AddItem Trim(RS.Fields(0).Value)
            RS.MoveNext
        Next
    End If
    RS.Close
    Set RS = NothingDTP_SD = Format(Date, "yyyy-mm-dd")
DTP_ED = Format(Date, "yyyy-mm-dd")
cmb_mpassget.clear
cmb_mpassget.text = "空运"
cmb_mpassget.AddItem "空运"
cmb_mpassget.AddItem "汽运"cmb_mgetmoney.clear
cmb_mgetmoney.text = "广付"
cmb_mgetmoney.AddItem "广付"
cmb_mgetmoney.AddItem "到付"For i = 3 To 8
    Cmb_year.AddItem "200" & i
NextFor u = 1 To 12
    Cmb_mon.AddItem u
NextCmb_year.text = Format(Date, "yyyy")
Cmb_mon.text = Format(Date, "mm")-------------------------------------------
就是以上的这些，在我的电脑是没事的，但编译出来后在别的电脑运行就出错了，也不知是哪行出错