vb if语句满足条件却不执行then，反而直接去执行else if 。

答案:5 悬赏:0 手机版

解决时间 2021-03-01 17:56

提问者网友：暮烟疏雨之际
2021-03-01 09:39

vb if语句满足条件却不执行then，反而直接去执行else if 。

但是将后面的SC1 = Format(SC1, "##0.000")注释掉却正常了。sc1在if里是一个变量。

最佳答案

五星知识达人网友：千夜
2021-03-01 10:32

问题分析
1.这个该注释掉的语句的位置不对
2.语法正确,逻辑有点偏离作者的思路

建议:
1.设置一个断点,然后点F8一步一步执行,相信你会找到问题的
2.把代码粘贴出来不就行了,医生看病不也得有病人才能开方子?,是不?

全部回答

1楼网友：躲不过心动
2021-03-01 14:25

嵌套不对,改： adodc2.commandtype = adcmdtext if combo1.text = "请选择" then msgbox ("请选择！") elseif combo1.text = "姓名" then adodc1.recordsource = "select name,workno from works where name='" & trim(text2.text) & "' " adodc1.refresh text1.text = adodc1.recordset.fields(0) a = adodc1.recordset.fields(1) adodc2.recordsource = "select workno,did,jb,jj,kouc,zuih=jb+jj-kouc from gongzi where workno='" & trim(a) & "' " adodc2.refresh if adodc2.recordset.recordcount > 0 then adodc2.recordset.movefirst for i = 0 to 5 if adodc2.recordset.fields(i) <> "" then text(i).text = adodc2.recordset.fields(i) else text(i).text = "" end if next i end if elseif combo1.text = "工作号" then adodc1.recordsource = "select name from works where workno='" & trim(text2.text) & "' " adodc1.refresh text1.text = adodc1.recordset.fields(0) adodc2.recordsource = "select workno,did,jb,jj,kouc,zuih=jb+jj-kouc from gongzi where workno='" & trim(text2.text) & "' " adodc2.refresh if adodc2.recordset.recordcount > 0 then adodc2.recordset.movefirst for i = 0 to 5 if adodc2.recordset.fields(i) <> "" then text(i).text = adodc2.recordset.fields(i) else text(i).text = "" end if next i end if end if

2楼网友：慢性怪人
2021-03-01 13:08

无代码无真相……

3楼网友：纵马山川剑自提
2021-03-01 11:41

将相关代码贴一下！

4楼网友：天凉才是好个秋
2021-03-01 11:17

加中断看看SC1是否跟判断条件一致

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！