改一下
If e.DataRow("含税情况") = "含17%税" Orelse e.DataRow("含税情况") = "含13%税" Then Dim ar As DataRow ar = DataTables("进项明细表").Find("_Identify = " & val(e.DataRow("销标"))) If ar IsNot Nothing Then ar("产品开piao数量") = e.NewValue ar.save End IfEnd If