标题:关于*
只看楼主
thiks
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2007-3-14
 问题点数:0 回复次数:6 
关于*
Private RS As ADODB.Recordset
Private Sub Build_Results(Optional Start_From = 0)
With RS
If .RecordCount > 0 Then
.Move Start_From * 13, 1
End If

请问 ".Move Start_From * 13, 1"怎么理解?句中*号是什么意思?

2007-03-21 21:44
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
得分:0 
*就是乘.

我的msn: myfend@
2007-03-21 21:46
thiks
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2007-3-14
得分:0 
Start_From * 13是什么意思?
2007-03-21 21:49
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
得分:0 
Private Sub Build_Results(Optional Start_From = 0)
With RS
If .RecordCount > 0 Then
.Move Start_From * 13, 1
End If


请看你这里吧.Optional Start_From = 0. 如果参数是0那0*13是什么意思我想地球人都知道吧.

我的msn: myfend@
2007-03-21 21:51
thiks
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2007-3-14
得分:0 
地球人知道了,谢了
2007-03-21 21:54
PcrazyC
Rank: 6Rank: 6
等 级:贵宾
威 望:29
帖 子:5652
专家分:0
注 册:2006-10-20
得分:0 
Optional是在定义参数时表明该参数可选。然后用IsMissing来判断调用函数时是否传入改参数。见下例:

Dim ReturnValue
' 下列语句调用用户自定义函数。
ReturnValue = ReturnTwice() ' 返回 Null。
ReturnValue = ReturnTwice(2) ' 返回 4。

' 函数过程定义。
Function ReturnTwice(Optional A)
If IsMissing(A) Then
' 如果参数丢失,则返回 Null。
ReturnTwice = Null
Else
' 如果参数出现,则返回两倍的值。
ReturnTwice = A * 2
End If
End Funciton

补充:ismissing仅在参数可选而且类型是variant时有效

雁无留踪之意,水无取影之心
2007-03-21 22:03
PcrazyC
Rank: 6Rank: 6
等 级:贵宾
威 望:29
帖 子:5652
专家分:0
注 册:2006-10-20
得分:0 
以前没用过Optional,刚才在网上找到的,发上来看看

雁无留踪之意,水无取影之心
2007-03-21 22:04



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-125738-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.297516 second(s), 7 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved