主题：[求助]代码简化

1、
If e.DataCol.Name = "二级名称"
    Dim drs As List(Of DataRow) = DataTables("订单明细").Select("[订单单号] = '" & e.DataRow("订单单号") & "'")
    For Each dr As DataRow In drs
        dr("二级名称") = e.DataRow("二级名称")
    Next
ElseIf e.DataCol.Name = "三级名称"
    Dim drs As List(Of DataRow) = DataTables("订单明细").Select("[订单单号] = '" & e.DataRow("订单单号") & "'")
    For Each dr As DataRow In drs
        dr("三级名称") = e.DataRow("三级名称")
    Next
End If

2、

ReplaceFor

找出符合条件的行，并将指定列的内容替换为指定值。

语法：

ReplaceFor(DataColName,Value,Filter)

DataColName：替换的列
Value：替换值
Filter：替换条件,请参考表达式的运算符和函数

例如将订单表中，订购数量大于600的订单的折扣设为0.15，只需简单的一行代码即可：