Dim myGrid As TrueOleDBGrid60.TDBGrid
Dim anyobj As Object
'This code doesnt work, error is Type Mismatch
Set myGrid = TestPartner.ActiveX("Name=grdSearchResult ClassName=TDBGrid").Object
'This code works, though, i dont know if this can help with drag and drop
Set anyobj = TestPartner.ActiveX("Name=grdSearchResult ClassName=TDBGrid").Object
btw, the mouse down->mouse move->mouse up to drag and drop from TDBGrid to another TDBGrid stopped working, i dont know why, i think it started when i added the TDBGrid control in sthe reference.
I use Infragistic's UltraWinGrid control which sounds like a similar 3rd party grid control as TDBGrid. I have to have the correct Infragistics UltraWinGrid version DLL loaded into the reference (Tools / Reference) in each Test Script, Module and Shared Module that uses the grid. At one time I had the wrong version of the reference loaded into TestPartner, and my commands were giving similar errors. Double check the DLL version and that it's loaded into each module that uses the control.