- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 自动输入的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93604)
-- 发布时间：2016/12/2 10:15:00
-- 自动输入的问题
我想在赎证1 赎证2 赎证3赎证4 赎证5列输入底盘号后，从库存表中找到采购金额 承兑出票日期 承兑还票日期自动填上。我写的代码不知道哪出了问题，带不出来，请老师帮我解决一下，谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:结算单.rar |
-- 发布时间：2016/12/2 10:43:00
--
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_出票日1") = dr("承兑出票日期")
e.DataRow("赎证A_还票日1") = dr("承兑到期日期")
Else
\'否则清除区号和邮编两列的内容
e.DataRow("赎证A_出票日1") = Nothing
e.DataRow("赎证A_还票日1") = Nothing
End If
End Select