Select Case e.DataCol.Name
Case "小写金额"
e.DataRow("大写金额") = CUMoney(e.DataRow("小写金额"))
Case "赎证A_赎证1","赎证B_赎证2","赎证C_赎证3","赎证D_赎证4","赎证E_赎证5"
Dim dr As DataRow
'在行政区域表查找所输入省市和县市的行
dr = DataTables("表B").Find("[底盘号] = '" & e.DataRow("赎证A_赎证1") & "'" ) '" & e.DataRow("县市") & "'")
If dr IsNot Nothing Then '如果找到
'将找到行的区号?邮编内容填入到正在输入的行中.
e.DataRow("赎证A_还款1") = dr("采购金额")
e.DataRow("赎证A_出piao日1") = dr("承兑出piao日期")
e.DataRow("赎证A_还piao日1") = dr("承兑到期日期")
Else
'否则清除区号和邮编两列的内容
e.DataRow("赎证A_出piao日1") = Nothing
e.DataRow("赎证A_还piao日1") = Nothing
End If
End Select
加好友 
发短信
Post By：2016/12/2 10:43:00 [显示全部帖子]
