|
if e.datarow.IsNull("??") = false andalso e.datarow.IsNull("??") = false then
Select Case e.DataCol.name
Case "??"
dim dr as datarow
if e.OldValue = nothing then
dr = DataTables("服饰账单").Find("?? = '" & e.NewValue & "' and ?? = '" & e.datarow("??") & "'")
else
dr = DataTables("服饰账单").Find("?? = '" & e.OldValue & "' and ?? = '" & e.datarow("??") & "'")
end if
If dr Is Nothing Then
dr = DataTables("服饰账单").AddNew()
dr("??") = e.DataRow("??")
dr("??") = e.DataRow("??")
dr("??") = e.DataRow("??")
dr("??") = e.DataRow("??")
dr("kg") = e.DataRow("kg")
Else
dr("??") = e.DataRow("??")
End If
Case "??"
dim dr as datarow
if e.OldValue = nothing then
dr = DataTables("服饰账单").Find("?? = '" & e.datarow("??") & "' and ?? = '" & e.NewValue & "'")
else
dr = DataTables("服饰账单").Find("?? = '" & e.datarow("??") & "' and ?? = '" & e.OldValue & "'")
end if
If dr Is Nothing Then
dr = DataTables("服饰账单").AddNew()
dr("??") = e.DataRow("??")
dr("??") = e.DataRow("??")
dr("??") = e.DataRow("??")
dr("??") = e.DataRow("??")
dr("kg") = e.DataRow("kg")
Else
dr("??") = e.DataRow("??")
End If
Case "??","??","??","kg"
Dim dr As DataRow = DataTables("服饰账单").Find("?? = '" & e.DataRow("??") & "'")
If dr IsNot Nothing Then
dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
End If
End Select
end if
|
加好友 
发短信
Post By：2017/7/2 21:02:00 [显示全部帖子]
