专家坐堂-操作时，远程服务器返回999错误，是什么意思啊？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

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