代码
Dim r As Row = Tables("车辆违章表").AddNewr("单位基本情况_单位名称") = e.Table.current("单位名称")r("单位基本情况_地址") = e.Table.current("地址")r("单位基本情况_联系电话") = e.Table.current("联系电话")r("单位基本情况_邮政编码") = e.Table.current("邮政编码")