以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  逻辑列数据类型  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79927)

--  作者:ljh29206
--  发布时间:2016/1/12 14:48:00
--  逻辑列数据类型
条件求助
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编辑过]

--  作者:大红袍
--  发布时间:2016/1/12 15:05:00
--  
DataTables("部品休息时间表").LoadFilter = "日班加班 = " & rbtj & " and 夜班加班 = " & ybtj & ""
[此贴子已经被作者于2016/1/12 15:05:34编辑过]