11 2018 档案
摘要:Private Sub cmdOK_Click() '“查询”按钮 Dim strSQL As String, strTemp1 As String, strTemp2 As String, strTemp3 As String Dim rs As ADODB.Recordset' txtBarCo
阅读全文
摘要:Private Sub Form_Load() Dim rs As Recordset Set rs = QueryExt("SELECT DepID,DepName FROM Depart") '获取部门数据 With cmbDepart .Clear '清空组合框 Do While Not rs
阅读全文
摘要:单击业务员类别制作 Private Sub mnuSalerType_Click() '业务员类别 frmSMType.strSQL = "SELECT * FROM jxc_SMType" frmSMType.Show '显示“业务员类别”窗体End Sub MSHFlexGrid控件设置列标题,
阅读全文
摘要:Private Sub Command1_Click() Adodc1.RecordSource = "select * from xsd where 日期 between # " & DT1.Value & " # and # " & DT2.Value & " #" Adodc1.Refresh
阅读全文

浙公网安备 33010602011771号