以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]帮我看看能不能合并编写。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=120491)
--  作者：vxzx
--  发布时间：2018/6/17 11:12:00
--  [求助]帮我看看能不能合并编写。

现在的类似这样 

     Dim dr As DataRow = e.DataRow
       Select Case e.DataCol.Name
          Case "产品名称"
               If dr("产品名称")=("A") Then
    e.DataRow("浆料搅拌分散性")= "- -"
    e.DataRow("浆料稳定性")= "- -"
  End If

               If dr("产品名称")=("B") Then
    e.DataRow("浆料搅拌分散性")= "- -"
    e.DataRow("浆料稳定性")= "- -"
  End If

End Select

 

因为项目是一样的，能不能合写类似下面的，我知道下边是错的，我不懂的，就是想请教下，谢谢。

 

     Dim dr As DataRow = e.DataRow
       Select Case e.DataCol.Name
          Case "产品名称"
               If dr("产品名称")=("A") or ("b") Then
    e.DataRow("浆料搅拌分散性")= "- -"
    e.DataRow("浆料稳定性")= "- -"
  End If

              End Select

 
--  作者：有点甜
--  发布时间：2018/6/17 14:34:00
--  

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "产品名称"
        If dr("产品名称")="A" OrElse dr("产品名称")="b" Then
            e.DataRow("浆料搅拌分散性")= "- -"
            e.DataRow("浆料稳定性")= "- -"
        End If
       
End Select