以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  统计  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=24067)
--  作者：lfxxdt
--  发布时间：2012/9/28 15:06:00
--  统计

Select e.DataCol.name \'按照生产批号汇总自动添加到生产计划单中.
    Case "联号"
    Dim dr As DataRow = e.DataRow
    Dim lf1 As String = dr("联号")
    Dim lf2 As String = dr("上工序")
    Dim cmd As New SQLCommand
    cmd.CommandText = "Select sum(正品数) From {日报表} Where 生产状态 =\'正常生产\' and 联号 =\' lf1\' and 工序 =\' lf2 \'"
    dr("上工序数")=cmd.ExecuteScalar()
End Select

以上代码黄色部分多条件如何编写，单个条件能运行，多个条件就运行不了
--  作者：狐狸爸爸
--  发布时间：2012/9/28 15:09:00
--  
你得先告诉大家正常生产、联号、工序这三列的数据类型。
--  作者：lfxxdt
--  发布时间：2012/9/28 15:11:00
--  
全都是字符型的
--  作者：狐狸爸爸
--  发布时间：2012/9/28 15:22:00
--  

Select e.DataCol.name \'按照生产批号汇总自动添加到生产计划单中.
    Case "联号"
    Dim dr As DataRow = e.DataRow
    Dim lf1 As String = dr("联号")
    Dim lf2 As String = dr("上工序")
    Dim cmd As New SQLCommand
    cmd.CommandText = "Select sum(正品数) From {日报表} Where 生产状态 = \'" & dr("正常生产") & "\' And 联号 = \'" &  lf1 & "\' And 工序 =\'" &  lf2 & "\'"
    dr("上工序数")=cmd.ExecuteScalar()
End Select

 

建议看看：

http://www.foxtable.com/help/topics/1284.htm

 
--  作者：lfxxdt
--  发布时间：2012/9/28 15:26:00
--  
已可以了谢谢