|
Dim r As Row = Tables("车辆违章表").Current
If r.isnull("编号_年份") = False AndAlso r.isnull("编号_序列号") = False
Dim dr As DataRow = DataTables("车辆处罚表").find("编号_年份 = " & r("编号_年份") & " And 编号_序列号 = '" & r("编号_序列号") & "'")
If dr IsNot Nothing
MessageBox.show("该车辆已经纯在!")
Else
dr = DataTables("车辆处罚表").AddNew
dr("编号_年份") = r("编号_年份")
dr("编号_序列号") = r("编号_序列号")
dr("单位基本情况_单位名称") = r("单位基本情况_单位名称")
dr("单位基本情况_地址") = r("单位基本情况_地址")
dr("单位基本情况_联系电话") = r("单位基本情况_联系电话")
dr("单位基本情况_邮政编码") = r("单位基本情况_邮政编码")
dr("车辆基本情况_车牌号码") = r("车辆基本情况_车牌号码")
dr("车辆基本情况_车牌颜色") = r("车辆基本情况_车牌颜色")
End If
End If
| 
加好友 
发短信
Post By：2014/9/14 15:07:00 [显示全部帖子]
