|
下面的代码可以简化吗？
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
End If
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
End If
| 
加好友 
发短信
Post By：2009/4/7 15:35:00 [只看该作者]
