小吳 VBQA 程式設計討論

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　　
　　　　　 Set GridListBuy.DataSource = DataE
　　　　　 GridListBuy.DataMember = "a0102wl"
　　　　　 DataE.rsA0102WL.MoveLast
　　 end if
　　　

他執行第一次時是沒問題的 第二次時就出現 無數值提供給一個或多各必要参數 那我的 PfuncString 及 PfuncString1 皆確定有值