| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 安条件加载 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=82961) |
| -- 作者：意悠心轻 -- 发布时间：2016/3/29 0:28:00 -- 安条件加载 我做了一个窗口，名字叫个人明细，希望通过输入姓名、起止时间，按按钮后加载出（除订单号、订单数量、废品三列外）所有数据。我已经看到冲压车间工资表中已经筛选出符合姓名、起止时间的数据（还未筛选订单号、订单数量、废品这三列，因按钮中还未加代码，故个人明细窗口中无数据，请问按钮应加什么代码？个人明细窗口中的代码是： Dim Filter As String With e.Form.Controls("cmbProduct") If .Value IsNot Nothing Then Filter = Filter & "姓名 = \'" & .Value & "\'" End If End With With e.Form.Controls("StartDate") If .Value IsNot Nothing Then If Filter >"" Then Filter = Filter & " And " End If Filter = Filter & "日期 >= #" & .Value & "#" End If End With With e.Form.Controls("EndDate") If .Value IsNot Nothing Then If Filter >"" Then Filter = Filter & " And " End If Filter = Filter & "日期 <= #" & .Value & "#" End If End With If Filter > "" Then DataTables("冲压车间工资表").LoadFilter = Filter \'设置加载条件 DataTables("冲压车间工资表").Load() \'加载数据 End If [此贴子已经被作者于2016/6/26 15:43:10编辑过]
|
| -- 作者：意悠心轻 -- 发布时间：2016/3/29 0:29:00 -- 密码：111222333 |
| -- 作者：意悠心轻 -- 发布时间：2016/3/29 8:19:00 -- 我把上面的代码写到按钮里，个人明细窗口中的Table绑定数据源，选择显示列，变成筛选不是加载，没了分配金额了。 |
| -- 作者：意悠心轻 -- 发布时间：2016/3/29 8:41:00 -- Dim Filter As String With e.Form.Controls("cmbProduct") If .Value IsNot Nothing Then Filter = Filter & "姓名 = \'" & .Value & "\'" End If End With With e.Form.Controls("StartDate") If .Value IsNot Nothing Then If Filter >"" Then Filter = Filter & " And " End If Filter = Filter & "日期 >= #" & .Value & "#" End If End With With e.Form.Controls("EndDate") If .Value IsNot Nothing Then If Filter >"" Then Filter = Filter & " And " End If Filter = Filter & "日期 <= #" & .Value & "#" End If End With If Filter > "" Then Tables("冲压车间工资表").Filter = Filter \'设置筛选条件 End If [此贴子已经被作者于2016/3/29 9:17:26编辑过]
|
| -- 作者：意悠心轻 -- 发布时间：2016/3/29 8:41:00 -- 行了，我看我要的效果了。 |