Foxtable(狐表)用户栏目专家坐堂 → [原创]时间筛选


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

主题:[原创]时间筛选

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


加好友 发短信
等级:五尾狐 帖子:1141 积分:11272 威望:0 精华:0 注册:2017/9/26 16:30:00
[原创]时间筛选  发帖心情 Post By:2017/10/15 15:20:00 [显示全部帖子]

1、[时间]列的格式为datetime,当点击日历中没有数据的日期时,报错;

报错的相关代码是副本表与主表的同步代码,怎样修改,请指教:

 


此主题相关图片如下:image 1.jpg
按此在新窗口浏览图片
Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("信息").FindRow(dr)
If wz >=0 Then
    Tables("信息").Position = wz
End  If

 

2、[时间]列的格式为datetime,打开窗口获取日期为当天的行数,但没获取到,afterload代码:
Dim  Filter As  String    
Dim d As Date = Date.Today
filter = " 时间 = #" & d & "# "

 

Dim count As Integer = Tables("信息_Table1").rows.count
e.Form.Controls("Label2").Text = count



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


加好友 发短信
等级:五尾狐 帖子:1141 积分:11272 威望:0 精华:0 注册:2017/9/26 16:30:00
  发帖心情 Post By:2017/10/15 16:23:00 [显示全部帖子]

Dim dr As DataRow = e.Table.Current.DataRow

 

甜老师,这句代码放不进afterload,提示不是formeventargs成员



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


加好友 发短信
等级:五尾狐 帖子:1141 积分:11272 威望:0 精华:0 注册:2017/9/26 16:30:00
  发帖心情 Post By:2017/10/15 16:55:00 [显示全部帖子]

对。

因为时间列是:2017-10-15 14:51:00 这种格式,所以没有筛选出来。

 


 回到顶部