设置派车表的BeforeDeleteDataRow事件为:
Dim dr As DataRow = DataTables("车辆信息").find("车号 = '" & e.DataRow("车号") & "'")If dr IsNot Nothing Then dr.DeleteEnd If