Case "税piao号码"
If e.NewValue IsNot Nothing Then
Dim m As Double = dr("金额明细_开piao金额")
For Each fdr As DataRow In DataTables("税piao登记").Select("税piao号码 in ( '" & e.OldValue.replace(",","','") & "')")
fdr("税piao状态") = Nothing
fdr("开piao日期") = Nothing
fdr("合同编号") = Nothing
fdr("项目名称") = Nothing
fdr("开piao金额") = Nothing
Next
For Each fdr As DataRow In DataTables("税piao登记").Select("税piao号码 in ( '" & e.NewValue.replace(",","','") & "')")
'If dr("税piao号码").Contains(fdr("税piao号码")) Then
fdr("税piao状态") = "已开piao"
fdr("开piao日期") = dr("开piao日期")
fdr("合同编号") = dr("合同编号")
fdr("项目名称") = dr("项目名称")
If m > 100000 Then
fdr("开piao金额") = 100000
m = m - 100000
Else
fdr("开piao金额") = m
End If
'End If
Next
Else
For Each fdr As DataRow In DataTables("税piao登记").Select("税piao号码 in ( '" & e.OldValue.replace(",","','") & "')")
fdr("税piao状态") = Nothing
fdr("开piao日期") = Nothing
fdr("合同编号") = Nothing
fdr("项目名称") = Nothing
fdr("开piao金额") = Nothing
Next
dr("piao据类别") = Nothing
End If