请教老师，如图
后面一栏的数据是随前面一栏的数据变化而变化的，且每一横行没有任何的关联
请问有没有简洁的命令实现我的想法，而不是像我这样一个一个的写，因为有好几十个这样的数据，请老师赐教，谢谢
If e.DataCol.Name = "介质名称" Then
If e.NewValue Is Nothing Then
e.DataRow("介质名称英文") = Nothing
Else
Dim dr As DataRow
dr = DataTables("泵电机参数").Find("[介质名称] = '" & e.NewValue & "'")
If dr IsNot Nothing
e.DataRow("介质名称英文") = dr("介质名称英文")
End If
End If
End If
If e.DataCol.Name = "螺杆数量" Then
If e.NewValue Is Nothing Then
e.DataRow("螺杆轴数量英文") = Nothing
e.DataRow("螺杆轴数量代码") = Nothing
Else
Dim dr As DataRow
dr = DataTables("泵电机参数").Find("[螺杆轴数量] = '" & e.NewValue & "'")
If dr IsNot Nothing
e.DataRow("螺杆轴数量英文") = dr("螺杆轴数量英文")
e.DataRow("螺杆轴数量代码") = dr("螺杆轴数量代码")
End If
End If
End If
If e.DataCol.Name = "压力范围" Then
If e.NewValue Is Nothing Then
e.DataRow("压力范围英文") = Nothing
e.DataRow("压力范围代码") = Nothing
Else
Dim dr As DataRow
dr = DataTables("泵电机参数").Find("[压力范围] = '" & e.NewValue & "'")
If dr IsNot Nothing
e.DataRow("压力范围英文") = dr("压力范围英文")
e.DataRow("压力范围代码") = dr("压力范围代码")
End If
End If
End If
加好友 
发短信
Post By：2016/5/25 20:27:00 [显示全部帖子]
此主题相关图片如下：qq截图20160525202918.jpg