| 共 131 篇文章 |
|
如果要用你上面的语句插入的话,文本文件必须存在,而且有一行:姓名,银行账号1,银行账号2然后就可以用下面的语句进行插入注意文件名和目录根据你的实际情况进行修改. insert intoopendatasource(''MICROSOFT.JET.OLEDB.4.0'',''Text;HDR=Yes;DATABASE=C:\'')...[aa#txt]--,aa#txt)--*/ 阅635 转44 评0 公众公开 09-06-26 22:10 |
*--两个日期之间年数,可以用于计算年龄(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)... 阅1085 转37 评0 公众公开 09-06-26 21:17 |
测试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... 阅685 转36 评0 公众公开 09-06-26 21:14 |
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. 阅350 转36 评0 公众公开 09-06-26 21:06 |
** 假定屏幕是在 640x480 下创建的 LOCAL lnHeight, lnWidth, lnHeightdiff, lnWidthdiff.** 你也可以在这里修改 FontSize 属性来重调字体 ** IF TYPE(".FontSize" # "U" ** &&IF 用于确保控件具有 FontSize 属性 ** .FontSize = .FontSize * ((.5 * lnWidthdiff) + (.5 * lnHeightdiff)) ** ENDIF **... 阅563 转45 评0 公众公开 09-06-26 21:01 |
*-- 定义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... 阅358 转28 评0 公众公开 09-06-26 20:32 |
这下惨了，代码就会变成下面的样子： 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... 阅571 转37 评0 公众公开 09-06-26 16:30 |
函数的定义形式如下： 函数定义形式是： FUNCTION 函数名 [PARAMETERS 参数表 ] 函数体 RETURN [ 表达式 ] FUNCTION 是函数的标识符，后面是函数名，同过程名一样，它是该函数的唯一标识，它的名字不允许同 FOXPRO 中的其它关键字及函数、过程同名。当 FOXPRO 执行到表达式中的自定义函数时，就钻进函数里执行函数体的代码，在遇到 RETURN 语句... 阅995 转44 评0 公众公开 09-06-26 16:28 |
阅1007 转36 评0 公众公开 09-06-26 16:21 |
oExcel=Createobject("Excel.application") &&创建Excel对象。oExcel.Release oExcel &&只有释放对象变量, EXCEL进程才会完全关闭。Add("区域3",oExcel.ActiveSheet.Range("A2:D5")) &&设置允许用户编辑区域。oExcel.activesheet.cells.oExcel=Createobject("Excel.Application&qu... 阅3897 转193 评1 公众公开 09-06-23 00:04 |
