主题：请教满足两个条件的代码？

If e.DataCol.name = "第六列" Then
Select Case e.DataRow("第六列")
Case e.DataRow("第四列") <= 3 And e.DataRow("第五列") >= 10
     e.DataRow("第六列") = "可以休假"

Case Else
            e.DataRow("第六列") = "不可以"

    End Select
End If

 

我想写一个代码，如果第四列的数字小于等于3，第五列的数字大于等于10，那么第六列就显示可以休假，否则显示不可以。我照猫画虎的编了个很白的代码，结果是一点反应没有，请各位狐朋们帮我改改啊~

呵呵，你还没有掌握Select Case，这个语句是判断某个值，建议你回头再看一下编程基础，掌握一下常用的语法。

这个应该用If

 

If e.DataCol.name = "第六列" Then
    if  e.DataRow("第四列") <= 3 And e.DataRow("第五列") >= 10
         e.DataRow("第六列") = "可以休假"

    Else
         e.DataRow("第六列") = "不可以"

    End If

End If

谢谢！开始我也心思了半天IF，但是因为没搞清这两个的差别，所以还是用SELECT写了，难怪没反应~~

不过我照着上面的代码写了，然后我在第四列和第五列里分别填上数字，但是没反应，我在第六列里乱写个数字什么的，第六列才根据前面四五列的条件出现文字~这是怎么回事呢？

If e.DataCol.name = "第六列" Then

 

上面代码的意思是，如果变动的是第六列才运行代码

呵呵，因为你设置的代码，只有第六列发生变化才会执行，实际上你的代码应该这样写：

 

Select Case e.DataCol.name 

    Case "第四列", "第五列"

        if  e.DataRow("第四列") <= 3 And e.DataRow("第五列") >= 10
             e.DataRow("第六列") = "可以休假"

        Else
             e.DataRow("第六列") = "不可以"

        End If

End Select

哈哈~谢谢各位大侠！今天又学了不少~

If e.DataCol.name = "第六列" Then

和

 

Select Case e.DataCol.name 

    Case "第六列"

 

道理一样的.