Private Sub DataGrid1_Click()
S = Adodc1.Recordset.Fields("學號").Value
Adodc2.RecordSource = S
Adodc2.Refresh
DataGrid2.Refresh
End Sub
上面的CODE...
在點選GRID1的RECORDSET 只要對應到ADODC2中無資料的資料表
程式就一直跑跑跑~~跑不停....
我應該怎麼修改~"~
謝謝...
S = Adodc1.Recordset.Fields("學號").Value
Adodc2.RecordSource = S
Adodc2.Refresh
DataGrid2.Refresh
End Sub
上面的CODE...
在點選GRID1的RECORDSET 只要對應到ADODC2中無資料的資料表
程式就一直跑跑跑~~跑不停....
我應該怎麼修改~"~
謝謝...
全站熱搜
留言列表