[已解决]这代码只执行一个条件，是怎么回事啊

ybc76 · 发表于 2013-4-24 14:48

本帖最后由 ybc76 于 2013-4-24 15:02 编辑

Sub 保存信息()
Dim a, b, m, n
Sheet5.Activate
a = [c:c].Find("*", , xlValues, , , xlPrevious).Row
For m = 3 To a
If Cells(m, 7).Text = "是" Then '无论是否符合条件都只执行这一个过程，是怎么回事啊
      Call 员工信息更新
      Call 操作员更新
ElseIf Cells(m, 7).Text = "否" Then
      Call 员工信息更新
End If
Next
End Sub

用户.zip (53.88 KB, 下载次数: 1)

那么的帅 · 发表于 2013-4-24 15:33

测试了，代码没有问题
请结合实例，说明哪里出现了问题

ybc76 · 发表于 2013-4-24 15:41

那么的帅发表于 2013-4-24 15:33
测试了，代码没有问题
请结合实例，说明哪里出现了问题

就是要是操作员的就添加进yftab表里，不是操作员的就不添加，就要这结果，但这程序执行的结果是不管是不是操作员的都添加进yftab表里了

那么的帅 · 发表于 2013-4-24 15:58

ybc76 发表于 2013-4-24 15:41
就是要是操作员的就添加进yftab表里，不是操作员的就不添加，就要这结果，但这程序执行的结果是不管是不是 ...

在操作员更新过程里加上条件判断

见附件的代码

mg.mdb 操作员表已清空

299516-VBA-调用ACCESS数据.rar (43.18 KB, 下载次数: 6)

		自动登录	找回密码
密码			注册