条件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Public Function GetState2Refine(ByVal ddh As String, ByVal ddhh As String, ByVal wlbm As String, ByVal rjbb As String, ByVal lhbbh As String) As String

Dim cnStr As String = "Data Source=(local);Initial Catalog=songjiang;Integrated Security=False;User ID=sa;Password=bdcom103liujy;"

Dim cn As New SqlClient.SqlConnection(cnStr)

cn.Open()

Dim adapter As New SqlClient.SqlDataAdapter("sel ect * from [可用数量表] where 订单号 <> '" & ddh & "' and 订单行号 <> '" & ddhh & "' and 物料编码 = '" & wlbm & "' and 软件版本 = '" & rjbb & "' and 两化表编号 = '" & lhbbh & "'", cn)

Dim dt As New DataTable

adapter.Fill(dt)

cn.Close()

当输入的订单号和订单行号为空

"sel ect * from [可用数量表] where 物料编码 = '" & wlbm & "' and 软件版本 = '" & rjbb & "' and 两化表编号 = '" & lhbbh & "'"

当输入的订单号和订单行号都不为空时

"sel ect * from [可用数量表] where 订单号 <> '" & ddh & "' and 订单行号 <> '" & ddhh & "' and 物料编码 = '" & wlbm & "' and 软件版本 = '" & rjbb & "' and 两化表编号 = '" & lhbbh & "'"

在下面的语句怎么写才能满足上面2个条件。

Dim adapter As New SqlClient.SqlDataAdapter("sele ct * from [可用数量表] where 订单号 <> '" & ddh & "' and 订单行号 <> '" & ddhh & "' and 物料编码 = '" & wlbm & "' and 软件版本 = '" & rjbb & "' and 两化表编号 = '" & lhbbh & "'", cn)

Dim adapter SqlClient.SqlDataAdapter
if ddhh ="" then
adapter = New SqlClient.SqlDataAdapter("sele ct * from [可用数量表] where 物料编码 = '" & wlbm & "' and 软件版本 = '" & rjbb & "' and 两化表编号 = '" & lhbbh & "'", cn)

else

adapter = New SqlClient.SqlDataAdapter("sele ct * from [可用数量表] where 订单号 <> '" & ddh & "' and 订单行号 <> '" & ddhh & "' and 物料编码 = '" & wlbm & "' and 软件版本 = '" & rjbb & "' and 两化表编号 = '" & lhbbh & "'", cn)

endif

Dim adapter As SqlClient.SqlDataAdapter

If ddh = "" And ddhh = "" Then

adapter = New SqlClient.SqlDataAdapter("sel ect * from [可用数量表] where 物料编码 = '" & wlbm & "' and 软件版本 = '" & rjbb & "' and 两化表编号.contains( '" & lhbbh & "')", cn)

Else

adapter = New SqlClient.SqlDataAdapter("sel ect * from [可用数量表] where 订单号 <> '" & ddh & "' and 订单行号 <> '" & ddhh & "' and 物料编码 = '" & wlbm & "' and 软件版本 = '" & rjbb & "' and 两化表编号.contains('" & lhbbh & "')", cn)

End If

Dim dt As New DataTable

adapter.Fill(dt)

cn.Close()

两化表编号.contains('" & lhbbh & "')这么写是不是不对呢?

and 两化表编号 like '%" & lhbbh & "%'", cn)

主题：条件