Foxtable(狐表)用户栏目专家坐堂 → 月历加载的问题


  共有1547人关注过本帖树形打印复制链接

主题:月历加载的问题

帅哥哟,离线,有人找我吗?
manyifuwu
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:500 积分:5391 威望:0 精华:0 注册:2009/2/5 13:09:00
月历加载的问题  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/12 15:38:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
manyifuwu
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:500 积分:5391 威望:0 精华:0 注册:2009/2/5 13:09:00
  发帖心情 Post By: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
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:500 积分:5391 威望:0 精华:0 注册:2009/2/5 13:09:00
  发帖心情 Post By:2018/1/12 16:29:00 [只看该作者]

怎么在    派工  窗口里,派工表 里显示日历选中日期的行呢?

[此贴子已经被作者于2018/1/12 16:37:37编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/12 16:43:00 [只看该作者]

Dim dt As DataTable = DataTables("派工表")
dt.LoadFilter = "截止日期=#" & e.Sender.Value & "#"
dt.Load

 回到顶部
帅哥哟,离线,有人找我吗?
manyifuwu
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:500 积分:5391 威望:0 精华:0 注册:2009/2/5 13:09:00
  发帖心情 Post By: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”运算符前缺少操作数。?????我那没有弄对呢?什么原因可以说说说吗?谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/12 16:56:00 [只看该作者]

lockBaseMainForm() '锁定主界面
DataTables("派工").StopRedraw()
DataTables("派工").RemoveFor("截止日期 = '" & e.Sender.Value &"'")
DataTables("派工").AppendLoad("截止日期 = '" & e.Sender.Value & "'")
DataTables("派工").ResumeRedraw()
Tables("派工").Filter = "截止日期 = '" & e.Sender.Value &"' And 时段 <> '5取消'"
UnLockBaseMainForm() '解锁主界面


 回到顶部
帅哥哟,离线,有人找我吗?
manyifuwu
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:500 积分:5391 威望:0 精华:0 注册:2009/2/5 13:09:00
  发帖心情 Post By:2018/1/12 17:12:00 [只看该作者]

感谢!甜老师!狐表有您更精彩。

 回到顶部