Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请问老师，查询窗口的年和月代码怎么写


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

主题：请问老师，查询窗口的年和月代码怎么写
帅哥哟，离线，有人找我吗？
jingledyang
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：55 积分：479 威望：0 精华：0 注册：2019/4/13 17:35:00 		请问老师，查询窗口的年和月代码怎么写  发帖心情 Post By：2019/6/19 23:21:00 [只看该作者]

请问老师，根据注册码，姓名，公司名称，来查询一个人在某年某月的工资，这代码怎么写？
图片点击可在新窗口打开查看此主题相关图片如下：工资年月查询代码怎么写.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/6/19 23:24:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
jingledyang
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：55 积分：479 威望：0 精华：0 注册：2019/4/13 17:35:00 		  发帖心情 Post By：2019/6/21 23:31:00 [只看该作者]

老师，我想能像“姓名”box和"公司名称“box的代码实现的功能那样，但是“工作日期”是日期型，不知道如何转换然后显示出来，就像加载树那样的功能。

 

下面是窗口AfterLoad事件代码

Dim cmb  As WinForm.ComboBox = e.form.Controls("ComID")
 cmb.ComboList = DataTables("考勤日记").GetComboListString("注册码")

 

 

 

下面是“姓名”box的代码

 

Dim cmb As WinForm.ComboBox = e.Sender
 Dim str As String = e.Form.Controls("ComID").Value
 cmb.ComboList = DataTables("考勤日记").GetComboListString("姓名", "注册码 = '" & str & "'")

 

 

 

下面是“公司名称”box的代码，

 

Dim cmb As WinForm.ComboBox = e.Sender
 Dim str As  String = e.Form.Controls("ComNm").Value
 cmb.ComboList = DataTables("考勤日记").GetComboListString("公司名称", "姓名 = '" &  str & "'")
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/6/22 9:09:00 [只看该作者]

月就12个月，直接写死就行了：cmb.ComboList = "1|2|3|.....|12"
年也一样，把最近20年写进去就差不多了

dim y as integer = val(e.form.controls("年textbox").text)
dim m as integer = val(e.form.controls("月textbox").text)
dim d as date = new date(y,m,1)
 回到顶部
帅哥哟，离线，有人找我吗？
jingledyang
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：55 积分：479 威望：0 精华：0 注册：2019/4/13 17:35:00 		  发帖心情 Post By：2019/6/22 22:35:00 [只看该作者]

老师，您给的方案我觉得不太科学，因为一个人在一家公司工作的年月时间存在不稳定性。不能去查找不存在的记录，这样系统可能会出错，还会给操作带来负担。要像加载树那样，有记录才查。工厂用的ERP系统，也是这样了的。
图片点击可在新窗口打开查看此主题相关图片如下：加载树.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2019/6/22 22:38:42编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/6/23 11:36:00 [只看该作者]

比如

 

Dim cmb As WinForm.ComboBox = e.Sender
Dim str1 As  String = e.Form.Controls("ComNm").Value

Dim str2 As String = e.Form.Controls("ComID").Value
cmb.ComboList = DataTables("考勤日记").sqlGetComboListString("year(工作日期)", "姓名 = '" &  str1 & "' and 注册码 = '" & str2 & "'")
 回到顶部
帅哥哟，离线，有人找我吗？
jingledyang
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：55 积分：479 威望：0 精华：0 注册：2019/4/13 17:35:00 		  发帖心情 Post By：2019/6/23 23:09:00 [只看该作者]

老师，您今天给的方法我之前试过了的出现以下错误，可否把日期类型做为String类型。
图片点击可在新窗口打开查看此主题相关图片如下：代码转换错误.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 

年、月 控件，请改成combobox类型，不要用下拉日期

 

 
 回到顶部
帅哥哟，离线，有人找我吗？
jingledyang
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：55 积分：479 威望：0 精华：0 注册：2019/4/13 17:35:00 		  发帖心情 Post By：2019/6/24 23:04:00 [只看该作者]

 我把年，月从日期类型改为Combobox,但是查询代码执行不了。我知道有问题，但是不知道如何修改代码。

 

Dim Filter As String
With e.Form.Controls("ComID")
    If .Value IsNot Nothing Then
        Filter = "注册码 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("ComNm")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "姓名 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("ComLtd")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "公司名称 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("yDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "工作日期 = #" & .Value & "#"
    End If
End With
With e.Form.Controls("mDate")
    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

 


图片点击可在新窗口打开查看此主题相关图片如下：查询窗口不执行.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/6/24 23:17:00 [只看该作者]

……
With e.Form.Controls("ComLtd")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "公司名称 = '" & .Value & "'"
    End If
End With
Dim y As Integer = val(e.form.controls("yDate").text)
Dim m As Integer = val(e.form.controls("mDate").text)
If y > 0
    If m > 0 Then
        Dim d As Date = new Date(y,m,1)
        Filter = Filter & "工作日期 >= #" & d & "# and 工作日期 < #" & d.AddMonths(1) & "#"
    Else
        Dim d As Date = new Date(y,1,1)
        Filter = Filter & "工作日期 >= #" & d & "# and 工作日期 < #" & d.AddYears(1) & "#"
    End If
End If
Tables("考勤日记").Filter = Filter
 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04932 秒, 4 次数据查询