摘要：Sub Btn_DataList_Click() strInit = "动态监管" strRet= DBEngine.OpenForm("通用数据列表",strInit,"") End Sub 阅读全文

摘要：Sub txtFindText_EventKeyPress(KeyCode) If KeyCode = 13 Then Call btnFind_Click End If End Sub 阅读全文

摘要：Sub DBEngine_EventUserEvent(strEventName, strInputXML) if strEventName = "TabCtrlCanChange" And strInputXML = "基本情况" then if DBEngine.IsNewRecord = true then MsgBox("请先保存“基本情况”的数据") DBE... 阅读全文

摘要：if ComboSex.Text "" then '性别不等于空 if strSQLWhere "" then strSQLWhere = strSQLWhere + " And " '用 And 连接前后两个条件 end if if ComboSex.Text = "男" then '注意:性别男在数据表里对应数值的为1 strSQLWhere = strSQLWhere + "[... 阅读全文

摘要：if DateFrom.Text "" Or DateTo.Text ""then if strSQLWhere "" then strSQLWhere = strSQLWhere + " And " '用 And 连接前后两个条件 end if '注意：要用单引号括住日期字符串 if DateFrom.Text "" And DateTo.Text ""then '两个范围都... 阅读全文

摘要：数据表模式，并指定打开窗体 NormalPage.aspx?TableName=协议供货&ListMode=Yes&ReadOnly=Yes&PopForm&RunTime=Yes&FormName=供货商协议供货登记 阅读全文