主题：判定条件

Dim dr1 As DataRow
dr1 = DataTables("BOM_机台").Find("[jth] = '" & e.NewValue & "'") 
 If dr1 IsNot Nothing
   If dr1("sfzs") = True Then
      e.DataRow("sjcn") =e.DataRow("sbms")-e.DataRow("xbms")+e.DataRow("sjxbms_1")+e.DataRow("sjxbms_2")+e.DataRow("sjxbms_3")+e.DataRow("sjxbms_4")
   Else
      e.DataRow("sjcn")= e.DataRow("xbms")-e.DataRow("sbms")+e.DataRow("sjxbms_1")+e.DataRow("sjxbms_2")+e.DataRow("sjxbms_3")+e.DataRow("sjxbms_4")
   End If
 End If

如果我在加上两个判定条件，如果生产表的，SBMS和XBMS发生改变也执行上面的公式，这两个判定条件改怎么加