DataColChanged事件
If e.DataCol.Name = "第一列" Then
e.DataRow("第二列") = val(e.NewValue.Replace("柜货","FD").Replace("件", ""))
End If