找不到哪里的语法不对了……
Select Case e.DataCol.name
Case "零件名称","零件号","生产工艺","工艺原料","仓库_入库确认","仓库_待发确认","仓库_原材料领料完成日"
Dim dr As DataRow = e.DataRow
If dr.Isnull("生产工艺") = False Then
If dr("生产工艺") = "外购成品" OrElse dr("生产工艺") = "组件" OrElse dr("生产工艺") = "库存成品" Then
Dim pf As String = dr("零件号")
Dim cmd1 As New SQLCommand
Dim cmd2 As New SQLCommand
Dim cmd3 As New SQLCommand
cmd1.C
cmd2.C
cmd3.C
If pf > "" Then
cmd1.commandText = "Select [库存数量] From {库存总表} Where [零件号] = '" & pf & "'"
cmd2.commandText = "Select [待发数量] From {库存总表} Where [零件号] = '" & pf & "'"
cmd3.commandText = "Select [储位] From {库存总表} Where [零件号] = '" & pf & "'"
End If
dr("仓库_库位代码") = cmd3.ExecuteScalar & " 库存:" & cmd1.ExecuteScalar - cmd2.ExecuteScalar
Else
Dim pf As String = dr("工艺原料")
Dim cmd1 As New SQLCommand
Dim cmd2 As New SQLCommand
Dim cmd3 As New SQLCommand
cmd1.C
cmd2.C
cmd3.C
If pf > "" Then
cmd1.commandText = "Select [库存数量] From {库存总表} Where [零件号] = '" & pf & "'"
cmd2.commandText = "Select [待发数量] From {库存总表} Where [零件号] = '" & pf & "'"
cmd3.commandText = "Select [储位] From {库存总表} Where [零件号] = '" & pf & "'"
End If
dr("仓库_库位代码") = cmd3.ExecuteScalar & " 库存:" & cmd1.ExecuteScalar - cmd2.ExecuteScalar
End If
End If
End Select