DataColChanged事件
Select Case e.DataCol.Name
Case "订单号", "行号"
e.DataRow("批号") = e.DataRow("订单号") & e.DataRow("行号")
End Select