sql = "select * from 用户 WHERE prvWhereSQL"
rs_sbzl.CursorLocation = adUseClient
rs_sbzl.Open sql, conn, adOpenKeyset, adLockPessimistic (调试提示,至少一个参数没有被指定值)
Set DataGrid1.DataSource = rs_sbzl
DataGrid1.AllowAddNew = False
DataGrid1.AllowDelete = False
DataGrid1.AllowUpdate = False
rs_sbzl.CursorLocation = adUseClient
rs_sbzl.Open sql, conn, adOpenKeyset, adLockPessimistic (调试提示,至少一个参数没有被指定值)
Set DataGrid1.DataSource = rs_sbzl
DataGrid1.AllowAddNew = False
DataGrid1.AllowDelete = False
DataGrid1.AllowUpdate = False
确认 prvWhereSQL 正确性