Sub Btn_DataList_Click()
strInit = "<Input><TableName>动态监管</TableName></Input>"
strRet= DBEngine.OpenForm("通用数据列表",strInit,"")
End Sub