下拉窗口的dropdownclosed事件:
If e.Form.dropdownbox.name="启动fa piao结转"
If e.Selected Then '如果选择了值
Dim tbl As Table = Tables("增加合同下拉窗口_table1")
If tbl.Current IsNot Nothing Then
Tables("租赁合同结转情况表").current("合同编号")=tbl.current("合同编号")
Tables("租赁合同结转情况表").current("合同属性")=tbl.current("合同属性")
Tables("租赁合同结转情况表").current("合同状态")=tbl.current("合同状态")
Tables("租赁合同结转情况表").current("项目名称")=tbl.current("项目名称")
End If
End If
End If
引用下拉窗口的dropdownbox 所在的模式窗口(窗口控件已绑定表字段)的 确定按钮:
Dim drr1 As Row = Tables("租赁合同结转情况表").current
If e.Form.Controls("启动fa piao结转").value Is Nothing
messagebox.show("合同相关信息不能为空")
Else
drr1("创建日期")=rq
drr1("创建人")=_UserName
drr1.save
endif
此主题相关图片如下:1.jpg

[此贴子已经被作者于2019/9/6 9:34:55编辑过]