老师为什么红色部分代码不起作用,如何调整?
需求是:删除dr("税piao号码")中的号码时,在"税piao登记"表中相应税piao号码对应行自动变为Nothing。
If e.NewValue IsNot Nothing Then
For Each fdr As DataRow In DataTables("税piao登记").Select("piao据类别 = '" & dr("piao据类别") & "' And 税piao状态 Is Null")
If dr("税piao号码").Contains(fdr("税piao号码")) Then
fdr("税piao状态") = "已开piao"
fdr("开piao日期") = dr("开piao日期")
fdr("合同编号") = dr("合同编号")
fdr("项目名称") = dr("项目名称")
End If
Next
Else
Dim arys() As String = dr("税piao号码").Split(",")
If arys.Length > 1 Then
For Each ary As String In arys
Dim fdr As DataRow = DataTables("税piao登记").Find("税piao号码 = '" & ary & "'")
If fdr IsNot Nothing Then
fdr("税piao状态") = Nothing
fdr("开piao日期") = Nothing
fdr("合同编号") = Nothing
fdr("项目名称") = Nothing
End If
Next
Else
Return
End If
End If