帮看一下这段代码,缺少end sub

来源：百度知道 编辑：UC知道 时间：2024/05/22 10:46:19
Private Sub cmdOk_Click()
Dim MsgText As String
Dim dBeginDate As String
Dim dEndDate As String
Dim sQSql As String
Dim mrcc As adodb.Recordset
Dim txtSQL As String

If Trim(sQSql) = "" Then
MsgBox "请设置查询条件！", vbOKOnly + vbExclamation, "警告"
Exit Sub
Else
Private Sub Command1_Click()
Dim list2SQL As String
Dim list1SQL As String
list1SQL = "select * from outstorehouse where 出库日期 between #" & Format(DTPdate1, "yyyy-mm-dd") & "# and #" & Format(DTPdate2, "yyyy-mm-dd") & "#"
list2SQL = "select * from instorehouse where 入库日期 between #" & Format(DTPdate1, "yyyy-mm-dd") & "# and #" & Format(DTPdate2, "yyyy-mm-dd") & "#"
Call list1disp(list1SQL)
Call list2disp(list2SQL)
End Sub

'Adodc1.RecordSour

删去一些代码，你的程序是这样的：
Private Sub cmdOk_Click()
Private Sub Command1_Click()

End Sub
End Sub

cmdok_click()里面还套了个command1_click()
这个怎么运行？

Dim txtSQL As String
这句代码下面少了个end sub
====================================
Call list2disp(list2SQL)

这句代码下面多了个end sub

太明显了好不好，你的ELSE下面接着是另一个事件了那么你上面那个事件的ENDSUB在哪？

你程序结构有问题
cmdOk_Click() 这个过程少end sub
Command1_Click() 这个过程
Call list2disp(list2SQL)
End Sub
多了个end sub

Private Sub cmdOk_Click()
Dim MsgText As String
Dim dBeginDate As String
Dim dEndDate As String
Dim sQSql As String
Dim mrcc As adodb.Recordset
Dim txtSQL As String
If Trim(sQSql) = "" Then
MsgBox "请设置查询条件！", vbOKOnly + vbExclamation, "警告"
Exit Sub
Else
'Adodc1.RecordSource = "select * from product where 入库日期=#" & Trim(cboYear(0).Text) & "and " & Trim(c