调用通用数据列表窗口

Sub Btn_DataList_Click()

 strInit = "<Input><TableName>动态监管</TableName></Input>"

 strRet= DBEngine.OpenForm("通用数据列表",strInit,"")

End Sub