只需一步,快速开始
strSQLwhere = " WHERE (" & Combo14 & strJoin & strTypedValue & ") and (分类代码 = '" & txtTreeSelected & "')" Sqlstring = "SELECT 物料代码, 物料名称, 物料描述, 说明, 库存量 FROM B物料 " Me.List4.RowSource = Sqlstring & " " & strSQLwhere
使用道具 举报
Sqlstring = "SELECT count(*) FROM B物料 " rst.Open Sqlstring & " " & strSQLwhere, CurrentProject.Connection ' rst.Open "select @@rowcount" rst.MoveFirst If Not rst.EOF Then Me.Label29.Caption = "共 " & rst.Fields(0) & " 项" Else Me.Label29.Caption = "共 0 项" End If
以下是引用KenjiSato在2004-4-29 16:54:45的发言: 朱兄的这种做法,是不是能把数据保存到客户端的ADP中?
本版积分规则 发表回复 回帖后跳转到最后一页
|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )
GMT+8, 2024-9-28 09:04 , Processed in 0.099399 second(s), 34 queries .
Powered by Discuz! X3.3
© 2001-2017 Comsenz Inc.