Move(1,"客户") And Do(220,1) And Eval(Mid(Rept(" And Next() And ExportDBFile(""c:\客户""+[客户]+"".xls"",6,GridName,""客户"",""="",[客户])",VisibleRows),16)) And ShowAllRows()