If e.Form.dropdownbox.name="确认结转引用"
Dim tbl As Table = Tables("确认结转引用下拉窗口_table1")
Dim drrr As Row =tbl.current
If drrr IsNot Nothing
Dim sxzf As New List(Of String)
sxzf=Functions.Execute("刷新租金服务费金额合同状态",drrr("合同编号"))
Dim ztt As Double=val(sxzf(0))
Dim ftt As Double=val(sxzf(1))
Dim htzt As String=sxzf(2)
If drrr("租金金额") <> ztt Or drrr("服务费金额") <> ftt
messagebox.show("因跨系统数据发生变化,需要重新刷新该合同后才能提交结转数据")
Forms("确认结转引用下拉窗口").DropDownBox.openDropDown()
Else
Forms("确认结转引用下拉窗口").DropDownBox.CloseDropDown()
End If
End If
End If
2、窗口的dropdownclosed事件：
If e.Form.dropdownbox.name="确认结转引用"
If e.Selected Then '如果选择了值
Dim tbl As Table = Tables("确认结转引用下拉窗口_table1")
Forms("确认一条合同结转").Controls("确认结转引用").value= tbl.current("合同编号")
Forms("确认一条合同结转").Controls("合同状态").value= tbl.current("合同状态")
Forms("确认一条合同结转").Controls("租赁类别").value= tbl.current("租赁类别")
Forms("确认一条合同结转").Controls("楼栋名称").value= tbl.current("楼栋名称")
Forms("确认一条合同结转").Controls("合同面积").value= tbl.current("合同面积")
Forms("确认一条合同结转").Controls("服务费金额").value= tbl.current("服务费金额")
Forms("确认一条合同结转").Controls("合同开始日期").value= tbl.current("合同开始日期")
Forms("确认一条合同结转").Controls("合同终止日期").value= tbl.current("合同终止日期")
Forms("确认一条合同结转").Controls("项目名称").value= tbl.current("项目名称")
Forms("确认一条合同结转").Controls("房间名称").value= tbl.current("房间名称")
Forms("确认一条合同结转").Controls("租金金额").value= tbl.current("租金金额")
Forms("确认一条合同结转").Controls("累计已收租金").value= tbl.current("累计已收租金金额")
Forms("确认一条合同结转").Controls("累计已收服务费").value= tbl.current("累计已收服务费金额")
Forms("确认一条合同结转").Controls("累计结转租金").value= tbl.current("累计结转租金")
Forms("确认一条合同结转").Controls("累计结转服务费").value= tbl.current("累计结转服务费")
End If
End If
加好友 
发短信
Post By：2020/8/31 14:44:00 [显示全部帖子]
此主题相关图片如下：微信截图_20200831144159.png
