If Option1.Value = True Then
Adodc1.RecordSource = "select " & Combol1.Text & "," & "Count(*) as 人数 from 员工档案 where 在职状态='在职'group by " & Combol1.Text
Adodc1.Refresh
Else
Adodc1.RecordSource = "select " & Combol1.Text & "," & "Count(*) as 人数 from 员工档案 where 在职状态='离职'group by " & Combol1.Text
Adodc1.Refresh
End If
运行出错,总是提示“实时错误424,错误对象”,查询语句成高亮度黄色显示???
vb+access设计
最新推荐文章于 2023-07-09 06:50:20 发布