金蝶实施二开学习

摘要： 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 阅读全文