oxls=CREATEOBJECT("Excel.application") oxls.Visible=.t. oxls.Workbooks.Add ?oxls.Selection.address oxls.ActiveSheet.range("A2:h8").select ?oxls.Selection.address

** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** * 名称：WAIT信息屏幕居中 函数 * 作者：宋** * 公司：SYRSOFT(R) 上海 中国 * 声明：版权所有(C)宋** 保留所有权利 ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** * 语法 MsgCent(cExpression [,nModel]) * 参数 * cExpression * 指定要显示的自定义信息。若省略...

* 该代码的前提是表结构相同，字段顺序相同，记录数相同，两表关键字段内容相同（同样适用关键字段内容不正确的情况，前提是记录顺序相同，这时用RECNO()作为索引关键字） clear create cursor tt (a1 c(10),a2 c(10),a3 c(10)) insert into tt values ("0001","abcd","aa") insert into tt values ("0002","abcd","ab") insert into tt values ("0003","abcd","ac") insert into tt v...

说明：&T为一间店铺的开始,&P为一间店铺的结束,&L为一条记录的结束 Create Cursor TEST (Shopno C(10),Shopname C(30),Pos C(10),Card C(20),Amt N(10,2),Hkfee N(10,2),seq C(10),Date1 C(8) ,Time C(6)) nRow=ALines(AcStr,FileToStr("Wt.Txt"),1,Chr(13)+Chr(10)) For lnI=1 To nRow cStr=AcStr[lnI] ...

FileName=GetFile("Xls") If Empty(FileName) Return EndIf oExcel=CreateObject('Excel.application') oExcel.Workbooks.Open(FileName) oExcel.SHEETS(1).SELECT *oExcel.Worksheets("sheet1").Activate nPages=oExcel.ActiveSheet.HPageBreaks.Count+1 MessageBox(FileName+"共有 "+Transform(nPages)+" ...