专家坐堂-语法错误:“[可到货数]”运算符后缺少操作数。Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  语法错误:“[可到货数]”运算符后缺少操作数。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=125215)

--  作者：yetle
--  发布时间：2018/9/22 14:01:00
--  语法错误:“[可到货数]”运算符后缺少操作数。
Tables("选择到货物检_table1").Filter=filter & " [可到货数] > 0 "

--  作者：有点蓝
--  发布时间：2018/9/22 14:30:00
--

filter 是什么内容？

Tables("选择到货物检_table1").Filter=filter & " and [可到货数] > 0 "

--  作者：yetle
--  发布时间：2018/9/22 14:46:00
--

Dim filter As String = "1=1"

Dim ddh As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim gys As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim lm As WinForm.TextBox = e.Form.Controls("TextBox3")
Dim ys As WinForm.TextBox = e.Form.Controls("TextBox4")
Dim kh As WinForm.TextBox = e.Form.Controls("TextBox5")
Dim wgh As WinForm.TextBox = e.Form.Controls("TextBox6")
Dim v As Integer = wgh.text
Dim qs As WinForm.RadioButton = e.Form.Controls("RadioButton1")
Dim qb As WinForm.RadioButton = e.Form.Controls("RadioButton2")

With e.Form.Controls("TextBox1")
If .Value IsNot Nothing Then
If ddh.text>"" Then
Filter = Filter & " And "

Else

filter=filter & "[采购单号] like \'" & ddh.text & "\'"
End If

End If
End With

With e.Form.Controls("TextBox2")
If .Value IsNot Nothing Then
If gys.text>"" Then
Filter = Filter & " And "

End If
filter=filter & "[供应商属性_供应商名称] like \'%" & gys.text & "%\'"

End If
End With

With e.Form.Controls("TextBox3")
If .Value IsNot Nothing Then
If lm.text>"" Then
Filter = Filter & " And "

End If
filter=filter & "[物料基本信息_物料名称] like \'%" & lm.text & "%\'"


End If
End With

With e.Form.Controls("TextBox4")
If .Value IsNot Nothing Then
If ys.text>"" Then
Filter = Filter & " And "

End If
filter=filter & "[物料配色] like \'" & ys.text & "\'"

End If
End With

With e.Form.Controls("TextBox5")
If .Value IsNot Nothing Then
If kh.text>"" Then
Filter = Filter & " And "

End If
filter=filter & "[款号] like \'%" & kh.text & "%\'"

End If
End With

With e.Form.Controls("TextBox6")
If .Value IsNot Nothing Then
If wgh.text>"" Then
Filter = Filter & " And "

End If
filter=filter & "[物供号] = "& v &" "

End If
End With

If Filter > "" Then
If qs.Checked = True Then
Tables("选择到货物检_table1").Filter=filter & " [可到货数] > 0 "

Else
Tables("选择到货物检_table1").Filter=filter
End If

End If

[此贴子已经被作者于2018/9/22 14:46:51编辑过]

--  作者：有点蓝
--  发布时间：2018/9/22 14:54:00
--
Tables("选择到货物检_table1").Filter=filter & " and [可到货数] > 0 "