| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 月历加载的问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=113284) |
| -- 作者：manyifuwu -- 发布时间：2018/1/12 15:06:00 -- 月历加载的问题 派工表初始不加载行，窗口月历的Calendar事件： LockBaseMainForm() Dim id As Integer = DataTables("派工").Compute("Max(_Identify)") Dim Filter As String = "[_Identify] > " & id DataTables("派工").AppendLoad(Filter, False) Tables("派工").Filter = "截止日期 = \'" & e.Sender.Value & "\'" Tables("派工").Filter &= " and 时段 <> \'5取消\'" UnLockBaseMainForm() \'锁定主界面 这是筛选，必须加载 我希望初始不加载，可以动态加载选定的日期，怎么实现呢？谢谢！
[此贴子已经被作者于2018/1/12 15:06:58编辑过]
|
| -- 作者：有点甜 -- 发布时间：2018/1/12 15:38:00 -- 参考
http://www.foxtable.com/webhelp/scr/2914.htm
|
| -- 作者：manyifuwu -- 发布时间：2018/1/12 16:22:00 -- Forms("派工").StopRedraw() \'停止绘制窗口 DataTables("派工").StopRedraw() DataTables("派工").RemoveFor("截止日期 = \'" & e.Sender.Value &"\'") DataTables("派工").AppendLoad("截止日期 = \'" & e.Sender.Value & "\'") DataTables("派工").ResumeRedraw() Forms("派工").ReseumeRedraw() \'停止绘制窗口 错误代码：DataTables("派工").ResumeRedraw()停止绘制？？？那内有对呢？ |
| -- 作者：manyifuwu -- 发布时间：2018/1/12 16:29:00 -- 怎么在 派工 窗口里,派工表 里显示日历选中日期的行呢？ [此贴子已经被作者于2018/1/12 16:37:37编辑过]
|
| -- 作者：有点甜 -- 发布时间：2018/1/12 16:43:00 -- Dim dt As DataTable = DataTables("派工表") dt.LoadFilter = "截止日期=#" & e.Sender.Value & "#" dt.Load |
| -- 作者：manyifuwu -- 发布时间：2018/1/12 16:53:00 -- lockBaseMainForm() \'锁定主界面 DataTables("派工").StopRedraw() DataTables("派工").RemoveFor("截止日期 = \'" & e.Sender.Value &"\'") DataTables("派工").AppendLoad("截止日期 = \'" & e.Sender.Value & "\'") DataTables("派工").ResumeRedraw() Dim dt As DataTable = DataTables("派工") dt.LoadFilter = "截止日期=\'" & e.Sender.Value & "\'" dt.Load Tables("派工").Filter &= " and 时段 <> \'5取消\'" UnLockBaseMainForm() \'解锁主界面 错误：语法错误:“And”运算符前缺少操作数。？？？？？我那没有弄对呢？什么原因可以说说说吗？谢谢！
|
| -- 作者：有点甜 -- 发布时间：2018/1/12 16:56:00 -- lockBaseMainForm() \'锁定主界面 |
| -- 作者：manyifuwu -- 发布时间：2018/1/12 17:12:00 -- 感谢！甜老师！狐表有您更精彩。 |