查找窗口提示字符串到long 无效, 这是什么问题 Post By:2020/11/18 20:30:00 [显示全部帖子]
Dim s1 As String = e.Form.Controls("类别").text Dim ss1 As String = "类别 = "& s1 &"" Dim s2 As String = e.Form.Controls("物料种类").text Dim ss2 As String = "物料种类 = "& s2 &"" Dim s3 As String = e.Form.Controls("物料代码").text Dim ss3 As String = "物料代码 like "& s3 &"" Dim s4 As String = e.Form.Controls("客户").text Dim ss4 As String = "客户 = "& s4 &"" Dim s5 As String = e.Form.Controls("客人编号").text Dim ss5 As String = "客方编号 like "& s5 &"" Dim s6 As String = e.Form.Controls("规格型号").text Dim ss6 As String = "规格型号 Like "& s6 &"" Dim s7 As String = e.Form.Controls("FSC声明").text Dim ss7 As String = "FSC声明 = "& s7 &"" Dim s8 As String = e.Form.Controls("存放仓库").text Dim ss8 As String = "存放仓库 = "& s8 &"" Tables("物料").filter = ss1 And ss2 And ss3 And ss4 And ss5 And ss6 And ss7 And ss8 Forms("物料查找窗口").close