在程序中x=IIf(Int(x/5)=x/5,x+2,x)的意思是:
創(chuàng)新互聯(lián)公司是一家集網(wǎng)站建設(shè),霍州企業(yè)網(wǎng)站建設(shè),霍州品牌網(wǎng)站建設(shè),網(wǎng)站定制,霍州網(wǎng)站建設(shè)報(bào)價(jià),網(wǎng)絡(luò)營(yíng)銷,網(wǎng)絡(luò)優(yōu)化,霍州網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè),幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競(jìng)爭(zhēng)力??沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時(shí)我們時(shí)刻保持專業(yè)、時(shí)尚、前沿,時(shí)刻以成就客戶成長(zhǎng)自我,堅(jiān)持不斷學(xué)習(xí)、思考、沉淀、凈化自己,讓我們?yōu)楦嗟钠髽I(yè)打造出實(shí)用型網(wǎng)站。
如果Int(x/5)=x/5,即x能被5整除,那么執(zhí)行x=x+2,否則執(zhí)行x=x語句。
即當(dāng)x是5 的倍數(shù)時(shí),x就加2,否則就不加。
授人以魚不如授人以漁
IIF(條件,值1,值2)
IIF語句的意思是,如果條件成立,則返回值1,否則返回值2
具體到你的代碼,就是如果File1.Path 的最后一個(gè)字符是 ”\“ 就返回空,否則返回 ”\“
所以我想你的完整句子應(yīng)該是這樣的:
File1.Path = File1.Path IIf(Right(File1.Path, 1) = "\", "", "\")
根據(jù)表達(dá)式的值,來返回兩部分中的其中一個(gè)。
語法: IIf(expr, truepart, falsepart)
參數(shù):
expr,必要參數(shù)。用來判斷真?zhèn)蔚谋磉_(dá)式。
truepart,必要參數(shù)。如果 expr 為 True,則返回這部分的值或表達(dá)式。
falsepart,必要參數(shù)。如果expr為 False,則返回這部分的值或表達(dá)式。
舉例:
a=iif(a=1,2,3)相當(dāng)于:
Ifa=1Then
a=2
Else
a=3
EndIf
iif就是"If...Then...Else"結(jié)構(gòu)的簡(jiǎn)寫版本
Result=iif(條件,Ture部分,False部分)
Result是函數(shù)的返回值,當(dāng)條件為真時(shí),iif函數(shù)返回Ture部分,當(dāng)條件為假時(shí),返回False部分.
例如a=1,b=3,c=3*a-b
a=iif(ca,a-1,b)+1
此時(shí),c確實(shí)小于a,所以執(zhí)行a-1
if后的語句如果成立,則可執(zhí)行Then
DT.Rows.ToString未必是指結(jié)果集中的所有數(shù)據(jù),也許只是一行中所有的,或是一列中所有的
保險(xiǎn)起見,可以一格格枚舉
dim a as boolean=true
Dim row As DataRow
For Each row In DT.Rows
Dim column As DataColumn
For Each column In DT.Columns
if row(column).contains("Agree") then a=false
Next column
Next row
if a then
Me.rblAgReject.Items(0).Enabled = False
else
Me.rblAgReject.Items(0).Enabled = True
end if