绑定数据源到表单,设置过滤条件的问题
sbo中 设置日期型的过滤字段 (我要过滤生产订单交货日期小于当前系统日期的单据)
怎么会没有返回记录
Set oDBDataSource = oform.DataSources.DBDataSources.Item("OWOR")
'下面的代码是创建一个过滤条件 duedate<= 当前日期
Dim oConditions As SAPbouiCOM.Conditions
Dim oCondition As SAPbouiCOM.Condition
Set oConditions = SBO_Application.CreateObject(cot_Conditions)
Set oCondition = oConditions.Add
oCondition.Alias = "DueDate"
oCondition.Operation = co_LESS_EQUAL
oCondition.CondVal = CStr(Date)
'过滤器创建完毕
Set omatrix = oform.Items("matrix1").Specific
omatrix.Clear
'查询数据
oDBDataSource.Query oConditions
'从数据源中取数赋值到表格中
omatrix.LoadFromDataSource
omatrix.AutoResizeColumns
只过滤 状态为 已核发和计划的 则可以过滤完成
Set oDBDataSource = oform.DataSources.DBDataSources.Item("OWOR")
'下面的代码是创建一个过滤器
Dim oConditions As SAPbouiCOM.Conditions
Dim oCondition As SAPbouiCOM.Condition
Set oConditions = SBO_Application.CreateObject(cot_Conditions)
Set oCondition = oConditions.Add
oCondition.Alias = "Status"
oCondition.Operation = co_EQUAL
oCondition.CondVal = "P"
oCondition.Relationship = cr_OR
Set oCondition = oConditions.Add
oCondition.Alias = "Status"
oCondition.Operation = co_EQUAL
oCondition.CondVal = "R"
'过滤器创建完毕
Set omatrix = oform.Items("matrix1").Specific
omatrix.Clear
'查询数据
oDBDataSource.Query oConditions '加入了过滤条件,status=p or status=r
'从数据源中取数赋值到表格中
omatrix.LoadFromDataSource
omatrix.AutoResizeColumns
但我现在的需求是 duedate<= 当前系统日期 并且 状态为 已批准和计划的 这个条件
代码怎么改呀
日期的彻底过滤不到
更不能三个条件连起来了
|