Foxtable(狐表)用户栏目专家坐堂 → [分享]cuiler狐表学习点滴(更新日期2008-9-6)


  共有28280人关注过本帖树形打印复制链接

主题:[分享]cuiler狐表学习点滴(更新日期2008-9-6)

帅哥哟,离线,有人找我吗?
cuiler
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:61 积分:582 威望:0 精华:0 注册:2008/9/1 7:15:00
[分享]cuiler狐表学习点滴(更新日期2008-9-6)  发帖心情 Post By:2008/9/7 13:37:00 [只看该作者]

发现的问题(经实验证明)

1,自动计算功能。只对第一列起作用,且对横向也不起作用。
已解决:所有参与计算的列必须是数值型

2,
开发指南==>编程基础==>流程控制语句==>for...next语句

在循环过程中,如果提前退出循环,可以用Exit For语句,例如:

Dim Sum As Integer
Dim
i As Integer
For
i = 1 To 100
    Sum = Sum + i
    If i = 51
Then
        Exit
For
    End
If

Next

OutPut.Show(Sum)

上面的代码实际上只是求得1到50的累计值,因为在计数器变量i等于51的时候,,程序退出了循环。

实际执行结果为 1326, 是 1到51的累计值。



[此贴子已经被ylm于2008-9-10 10:51:42编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
抽烟男人
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:57 积分:473 威望:0 精华:0 注册:2008/8/31 22:34:00
  发帖心情 Post By:2008/9/7 13:54:00 [只看该作者]

1.我的可以计算出来
2 ,应该是一个笔误,1到50的累计值应该把次序倒一下就行了

Dim Sum As Integer
Dim
i As Integer
For
i = 1 To 100
    If i = 51
Then
        Exit
For
    End
If 
   Sum = Sum + i
Next

OutPut.Show(Sum)
[此贴子已经被作者于2008-9-7 13:54:19编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2008/9/7 15:39:00 [只看该作者]

谢谢,收藏
楼主继续。
[此贴子已经被作者于2008-9-7 15:39:05编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
cuiler
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:61 积分:582 威望:0 精华:0 注册:2008/9/1 7:15:00
  发帖心情 Post By:2008/9/7 19:43:00 [只看该作者]

以下是引用狐狸爸爸在2008-9-7 15:39:00的发言:
谢谢,收藏
楼主继续。
[此贴子已经被作者于2008-9-7 15:39:05编辑过]


持续学习中,发现问题,我会及时反馈的


 回到顶部
帅哥哟,离线,有人找我吗?
hbfnmxb
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:512 积分:5717 威望:0 精华:0 注册:2008/9/7 20:15:00
  发帖心情 Post By:2008/9/7 20:54:00 [只看该作者]

真的不错,学习了

 回到顶部
帅哥哟,离线,有人找我吗?
cuiler
  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:61 积分:582 威望:0 精华:0 注册:2008/9/1 7:15:00
  发帖心情 Post By:2008/9/8 14:30:00 [只看该作者]

3,开发指南==>编程基础==>流程控制语句==>do...loop语句

在循环过程中,如果提前退出循环,可以用Exit Do语句,例如:

Dim Sum As Integer
Dim
i As Integer = 1
Do
While i <= 100
    Sum = Sum + i
    i = i +
1
   
If i = 50
Then
        Exit
Do
    End
If
Loop

Output.Show(Sum)

上面的代码实际上只是求得1到50的累计值,因为在i等于50的时候退出了循环。

实际执行结果为 1225, 是 1到49的累计值。

4,开发指南==>编程基础==>流程控制语句==>Return语句
Return语句用于终止代码的执行。

例如:

Dim Sum As Integer

Dim i As Integer

For i = 1 To 100

    Sum = Sum + i

    If i = 51 Then   '如果i等于51

        OutPut.Show(Sum)   '显示结果

        Return   '终止执行

    End If

Next

 

如文中所指,Return所谓“终止代码的执行“ 到底是什么意思?

是类似于结束本次循环的continue  do?    还是类似于退出循环的exit  do

而且经过验证,上面的代码执行后会出错


此主题相关图片如下:111.jpg
按此在新窗口浏览图片

[此贴子已经被作者于2008-9-8 14:32:36编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
lxl
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:858 积分:6071 威望:0 精华:19 注册:2008/9/1 9:13:00
  发帖心情 Post By:2008/9/8 14:41:00 [只看该作者]

FoxTable里面大部分地方只用 Return就够了
 命令窗口例外


 回到顶部
帅哥哟,离线,有人找我吗?
cuiler
  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:61 积分:582 威望:0 精华:0 注册:2008/9/1 7:15:00
  发帖心情 Post By:2008/9/8 14:46:00 [只看该作者]

以下是引用lxl在2008-9-8 14:41:00的发言:

FoxTable里面大部分地方只用 Return就够了
 命令窗口例外


听不懂?


 回到顶部
帅哥哟,离线,有人找我吗?
lxl
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:858 积分:6071 威望:0 精华:19 注册:2008/9/1 9:13:00
  发帖心情 Post By:2008/9/8 15:40:00 [只看该作者]

以下是引用cuiler在2008-9-8 14:46:00的发言:


听不懂?

在所有能写代码的地方:
比如说在表属性、项目属性里面的所有事件中,
在窗口、菜单的控件(比如按钮)的事件中
以及计算代码中
可以用Return 中止代码:
例:


If CurrentTable = Nothing Then      ‘如果当前表为Nothing 也就是不存在
     Return                          ’那么直接返回,后面的代码都不用管了
End If
……                                    '其他代码
……                                    '其他代码
……                                    '其他代码
 


但是唯一列外的是命令窗口必须用:
 Return  值 





 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2008/9/8 16:01:00 [只看该作者]

呵呵,谢了。
请楼主下载今天的更新。
这个问题在新的帮助文件中已经改了,并提示了。

 回到顶部
总数 16 1 2 下一页