If e.Table.Current IsNot Nothing Then
Dim Filter As String = "订单ID = '" & e.Table.Current("订单ID") & "'"
DataTables("附件管理").RemoveFor(Filter)
DataTables("附件管理").AppendLoad(Filter) '则追载此订单的订单明细
End If
If e.Table.Current IsNot Nothing Then
Dim Filter As String = "订单ID = '" & e.Table.Current("订单ID") & "'"
DataTables("订单清单").RemoveFor(Filter)
DataTables("订单清单").AppendLoad(Filter) '则追载此订单的订单明细
End If
If e.Table.Current IsNot Nothing Then
Dim Filter As String = "订单ID = '" & e.Table.Current("订单ID") & "'"
DataTables("执行团队").RemoveFor(Filter)
DataTables("执行团队").AppendLoad(Filter) '则追载此订单的订单明细
End If
If e.Table.Current IsNot Nothing Then
Dim Filter As String = "订单ID = '" & e.Table.Current("订单ID") & "'"
DataTables("项目备忘录").RemoveFor(Filter)
DataTables("项目备忘录").AppendLoad(Filter) '则追载此订单的订单明细
End If
大量重复的代码 怎样简化下
[此贴子已经被作者于2018/1/15 9:07:34编辑过]
加好友 
发短信
Post By：2018/1/15 9:07:00 [只看该作者]
