设置DataColChanged事件:
If e.DataCol.Name = "订单状态" Then
Dim dr = e.DataRow
FoxSMS.SendMsg(dr("手机号码"), dr("姓名") & IIF(dr("性别","先生","女士") & ":已经" & dr("订单状态"))
End if