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


  共有1325人关注过本帖平板打印复制链接

主题:[原创]时间筛选

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


加好友 发短信
等级:五尾狐 帖子:1137 积分:11224 威望: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



 回到顶部