大概是这样子吧
DataColChanged事件代码
If e.DataCol.Name = "客户" OrElse e.DataCol.Name = "送货日期"
If e.DataRow.IsNull("客户") = False And e.DataRow.IsNull("送货日期") = False Then
e.DataRow("销货号") = e.DataRow("缩拼") & "-" & Format(e.DataRow("送货日期"),"yyMM")
Else
e.DataRow("销货号") = Nothing
End If
End If