以文本方式查看主题 - 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编辑过]
|