主题：关于日期列的年份筛选

Dim cj As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim dm As WinForm.ComboBox = e.Form.Controls("ComboBox2")
Dim hm As WinForm.ComboBox = e.Form.Controls("ComboBox3")
If cj.SelectedItem IsNot Nothing Then
    If dm.SelectedItem IsNot Nothing Then
        If hm.SelectedItem IsNot Nothing Then
            e.sender.ComboList = DataTables("开piao主表").GetComboListString(Year(开piao日期) ,"客户名称 = '"& cj.text &"'and fa piao代码 = '"& dm.text &"'and fa piao号码 = '"& hm.text &"'","_identify")
        Else
            e.sender.ComboList = DataTables("开piao主表").GetComboListString(Year(开piao日期)  ,"客户名称 = '"& cj.text &"'and fa piao代码 = '"& dm.text &"'","_identify")
        End If
    Else
        If hm.SelectedItem IsNot Nothing Then
            e.sender.ComboList = DataTables("开piao主表").GetComboListString(Year(开piao日期) ,"客户名称 = '"& cj.text &"'and fa piao号码 = '"& hm.text &"'","_identify")
        Else
            e.sender.ComboList = DataTables("开piao主表").GetComboListString(Year(开piao日期)  ,"客户名称 = '"& cj.text &"'","_identify")
        End If
    End If
Else
    If dm.SelectedItem IsNot Nothing Then
        If hm.SelectedItem IsNot Nothing Then
            e.sender.ComboList = DataTables("开piao主表").GetComboListString(Year(开piao日期) ," fa piao代码 = '"& dm.text &"'and fa piao号码 = '"& hm.text &"'","_identify")
        Else
            e.sender.ComboList = DataTables("开piao主表").GetComboListString(Year(开piao日期)  ," fa piao代码 = '"& dm.text &"'","_identify")
        End If
    Else
        If hm.SelectedItem IsNot Nothing Then
            e.sender.ComboList = DataTables("开piao主表").GetComboListString(Year(开piao日期) ," fa piao号码 = '"& dm.text &"'","_identify")
        Else
            e.sender.ComboList = DataTables("开piao主表").GetComboListString(Year(开piao日期)  ,"","_identify")
        End If
    End If
End If

 

帮我改一下吧，Year(开piao日期) 有问题，出现错误：

此主题相关图片如下：cw.jpg

不能这样用的。增加一个表达式列记录开piao日期的年份

晕，这句代码不会写，不知道怎么加上去

创建一个表达式列，表达式填：SubString(Convert([开piao日期],'System.String'),1,4)

Dim cj As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim dm As WinForm.ComboBox = e.Form.Controls("ComboBox2")
Dim hm As WinForm.ComboBox = e.Form.Controls("ComboBox3")
Dim kpn As WinForm.ComboBox = e.Form.Controls("ComboBox4")
If cj.text IsNot Nothing
    If dm.text IsNot Nothing
        If hm.text IsNot Nothing
        Tables("开piao主表").Filter = "年 = '" & kpn.Text & "'and fa piao号码 = '" & hm.Text & "'and fa piao代码 like '%" & dm.Text & "%'and 客户名称 like '%" & cj.Text & "%'"
        Else
        Tables("开piao主表").Filter = "年 = '" & kpn.Text & "'and fa piao代码 = '" & dm.Text & "'and 客户名称 like '%" & cj.Text & "%'"
        End If
    Else
        If hm.text IsNot Nothing
        Tables("开piao主表").Filter = "年 = '" & kpn.Text & "'and fa piao号码 = '" & hm.Text & "'and 客户名称 like '%" & cj.Text & "%'"
        Else
        Tables("开piao主表").Filter = "年 = '" & kpn.Text & "'and 客户名称 like '%" & cj.Text & "%'"
        End If
   End If
Else
    If dm.text IsNot Nothing
        If hm.text IsNot Nothing
        Tables("开piao主表").Filter = "年 = '" & kpn.Text & "'and fa piao号码 = '" & hm.Text & "'and fa piao代码 like '%" & dm.Text & "%'"
        Else
        Tables("开piao主表").Filter = "年 = '" & kpn.Text & "'and fa piao代码 = '" & dm.Text & "'"
        End If
    Else
        If hm.text IsNot Nothing
        Tables("开piao主表").Filter = "年 = '" & kpn.Text & "'and fa piao号码 = '" & hm.Text & "'"
        Else
        Tables("开piao主表").Filter = "年 = '" & kpn.Text & "'"
        End If
   End If
End If

 

用了表达式，这筛选怎么就没反应了呢？

调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm