悟静

简介

文章 关注 访问
 
共 131 篇文章
显示摘要每页显示  条
如果要用你上面的语句插入的话,文本文件必须存在,而且有一行:姓名,银行账号1,银行账号2然后就可以用下面的语句进行插入注意文件名和目录根据你的实际情况进行修改. insert intoopendatasource(''MICROSOFT.JET.OLEDB.4.0'',''Text;HDR=Yes;DATABASE=C:\'')...[aa#txt]--,aa#txt)--*/
*--两个日期之间年数,可以用于计算年龄(Max是防止ldDateE小于ldDateB)?"两个日期之前年数",Max(Year(ldDateE)-Year(ldDateB)-Iif(Gomonth(ldDateB,(Year(ldDateE)-Year(ldDateB))*12)>ldDateE,1,0),0)?"两个日期之前年数",Max(Int(((Year(ldDateE)-Year(ldDateB))*12+Month(ldDateE)-(Month(ldDateB)+Iif((Day(ldDateE)...
测试DBF导出到EXCEL中的一段代码。SELECT FoxTable oexcelSheet = GETOBJECT("","Excel.Sheet") &&产生Excel对象 IF NOT TYPE("oexcelSheet") = "O" =MESSAGEBOX("excel对象创建失败,程序将中止!ActiveSheet nFldCount = AFIELDS(aFldList, "FoxTable") FOR i = 1 TO nFldCo...
GRID 与动态DBF绑定。.columncount=colcFOR c1=1 TO colc cname=''column''+LTRIM(STR(c1)) .&cname..width=100 .&cname..controlsource=TRIM(cola(c1,2)) .&cname..header1.caption=TRIM(cola(c1,3)) IF .not.
** 假定屏幕是在 640x480 下创建的 LOCAL lnHeight, lnWidth, lnHeightdiff, lnWidthdiff.** 你也可以在这里修改 FontSize 属性来重调字体 ** IF TYPE(".FontSize" # "U" ** &&IF 用于确保控件具有 FontSize 属性 ** .FontSize = .FontSize * ((.5 * lnWidthdiff) + (.5 * lnHeightdiff)) ** ENDIF **...
*-- 定义8个LIST里的项目名称,以及他们的图片名称dime content(8,2)content(1,1) = "第一页"content(2,1) = "上一页"content(3,1) = "下一页"content(4,1) = "末一页"content(5,1) = "打印设置"content(6,1) = "报表打印"content(7,1) = "报表属性"content(8,1) = &qu...
这下惨了,代码就会变成下面的样子: DO CASE CASE THISFORM.TEXT1.VALUE = ''1980'' USE ''1980.DBF'' CASE THISFORM.TEXT2.VALUE = ''1981'' USE ''1981.DBF'' CASE THISFORM.TEXT2.VALUE = ''1982'' USE ''1982.DBF'' CASE THISFORM.TEXT...
函数的定义形式如下: 函数定义形式是: FUNCTION 函数名 [PARAMETERS 参数表 ] 函数体 RETURN [ 表达式 ] FUNCTION 是函数的标识符,后面是函数名,同过程名一样,它是该函数的唯一标识,它的名字不允许同 FOXPRO 中的其它关键字及函数、过程同名。当 FOXPRO 执行到表达式中的自定义函数时,就钻进函数里执行函数体的代码,在遇到 RETURN 语句...
oExcel=Createobject("Excel.application") &&创建Excel对象。oExcel.Release oExcel &&只有释放对象变量, EXCEL进程才会完全关闭。Add("区域3",oExcel.ActiveSheet.Range("A2:D5")) &&设置允许用户编辑区域。oExcel.activesheet.cells.oExcel=Createobject("Excel.Application&qu...
帮助 | 留言交流 | 联系我们 | 服务条款 | 下载网文摘手 | 下载手机客户端
北京六智信息技术股份有限公司 Copyright© 2005-2021 360doc.com , All Rights Reserved
京ICP证090625号 京ICP备05038915号 京网文[2016]6433-853号 京公网安备11010502030377号
返回
顶部