关闭连接,以清除COMMAND中的内容,再重新打开
if DataEnvironment1.rsCommand1.State<> 0 then
DataEnvironment1.rsCommand1.Closed
end if
set DataGrid.Datesource=DataEnvironment1
DataGrid.Datamember="Command1"
if DataEnvironment1.rsCommand1.State<> 0 then
DataEnvironment1.rsCommand1.Closed
end if
set DataGrid.Datesource=DataEnvironment1
DataGrid.Datamember="Command1"
set datagrid1.datasource=nothing
set datagrid1.datasource=DataEnvironment1msn:[email protected]
不过,客气一点嘛!