主题：请问老师，查询窗口的年和月代码怎么写

请问老师，根据注册码，姓名，公司名称，来查询一个人在某年某月的工资，这代码怎么写？
此主题相关图片如下：工资年月查询代码怎么写.jpg

老师，我想能像“姓名”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 & "'")

老师，您给的方案我觉得不太科学，因为一个人在一家公司工作的年月时间存在不稳定性。不能去查找不存在的记录，这样系统可能会出错，还会给操作带来负担。要像加载树那样，有记录才查。工厂用的ERP系统，也是这样了的。
此主题相关图片如下：加载树.jpg

老师，您今天给的方法我之前试过了的出现以下错误，可否把日期类型做为String类型。
此主题相关图片如下：代码转换错误.jpg

 我把年，月从日期类型改为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

老师代码运行错误

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2019.6.13.1
错误所在事件：
详细错误信息：
语法错误:“工作日期”运算符后缺少操作数。

 

代码错误：

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  &="姓名 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("ComLtd")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        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

谢老师了，现在调试OK了！