Dim psgs As String =e.Form.Controls("CheckedListBox1").value '公司
Dim nforyf1 As String =e.Form.Controls("TextBox2").text '时间是月份或年开
Dim nforyf2 As String =e.Form.Controls("TextBox3").text '时间是月份或年始
Dim bl As String
If nforyf1<>Nothing And nforyf2<>Nothing Then '如果时间不为空
If nforyf1.Length=4 And nforyf2.Length=4 Then
bl="年份"
ElseIf nforyf1.Length=6 And nforyf2.Length=6 Then
bl="手术月份"
End If
If psgs >"" Then '列表框不为空,即指定某个配送公司
fTSJE001.Filter = bl &">='"& nforyf1 &"'and bl & <='"& nforyf2 &"' and 配送公司='"& psgs &"'"
Else '列表框为空
fTSJE001.Filter = bl &">='"& nforyf1 &"'and bl & <='"& nforyf2 &"'"
End If
.....
end if
代码提示错误:语法错误:“<=”运算符前缺少操作数。
请问老师 红色字体应该怎样修改?
[此贴子已经被作者于2018/9/16 22:44:54编辑过]