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
加好友 
发短信
Post By：2016/12/23 12:54:00 [显示全部帖子]
