UMV开发平台在点击查找窗体的“查询”窗体后,如果只返回一条记录,就自动打开修改窗体。想省却双击这一步,只需要加入下面红色代码就可以了
Public Sub FindEnd()
Forms!usysfrmmain!frmChild.Form.RecordSource = Acchelp_ChildFormRecordSource("qryBxmx", "报销编号", True)
If Forms!usysfrmmain!frmChild.Form.RecordsetClone.RecordCount = 1 Then
g_usysfrmMenu_child_steelToolBar_Edit
End If
'记录下来报表的数据来源
strRptReSource = Forms!usysfrmmain!frmChild.Form.RecordSource
End Sub
效果如下: