If DataE.rsA0102WL.State <> adStateClosed Then DataE.rsA0102WL.Close DataE.Commands("a0102wl").Parameters(0) = PfuncString DataE.Commands("a0102wl").Parameters(1) = PfuncString1 DataE.rsA0102WL.Open if not DataE.rsA0102WL.EOF then
請教一下,我看不懂下面在做什麼動作 Dim WithEvents rs As Recordset 'WithEvents-這是什麼意思 Set rs = New Recordset rs.Open sqlstr, con, adOpenDynamic, adLockOptimistic Set DataGrid1.DataSource = rs '指派rs.Open 給DataGrid1(不懂)