判断窗体是否打开的两种方法 Function IsLoaded(strName As String, Optional intObjectType As Integer = acForm) IsLoaded = (SysCmd(acSysCmdGetObjectState, intObjectType, strName) 0) End Function 函数二 Function IsFormLoaded(strFrmName As String) As Boolean Const conFormDesign = 0 Dim intX As Integer IsFormLoaded= False For intX = 0 To Forms.Count - 1 If Forms(intX)....[ 查看全文 ]
/* 豆腐制作 都是精品 http://www.asp888.net 豆腐技术站 如转载 请保留版权信息 */ <%@ Import Namespace="System.Data" % <%@ Import Namespace="System.Data.SQL" % <html <script language="VB" runat="server" Dim dsCustomer as DataSet Dim CustomersDSCommand as SQLDataSetCommand Protected Sub Page_Load(Src as object, E as EventArgs ) '读出数据的第一种方法 Dim myConnectio...[ 查看全文 ]