条件求助
Dim rbtj As String '日班条件
Dim ybtj As String '夜班条件
For sjf As Integer = 19 To 26
If Tables("生产计划表").rows(sjf)("加班") = "true" And Tables("生产计划表").rows(sjf)("班次") = "日班" Then
rbtj = "true"
ElseIf Tables("生产计划表").rows(sjf)("加班") = "false" And Tables("生产计划表").rows(sjf)("班次") = "日班" Then
rbtj = "false"
ElseIf Tables("生产计划表").rows(sjf)("加班") = "true" And Tables("生产计划表").rows(sjf)("班次") = "夜班" Then
ybtj = "true"
ElseIf Tables("生产计划表").rows(sjf)("加班") = "false" And Tables("生产计划表").rows(sjf)("班次") = "夜班" Then
ybtj = "false"
End If
Next
夜班加班 日班加班 为逻辑列
DataTables("部品休息时间表").LoadFilter = "日班加班 = '" & rbtj & "' and 夜班加班 = '" & ybtj & "'" 这里老提示数据类型不对！
DataTables("部品休息时间表").Load
[此贴子已经被作者于2016/1/12 14:49:18编辑过]
加好友 
发短信
Post By：2016/1/12 14:48:00 [只看该作者]
