我现在就是很难到当前的焦点呀,当在datagrid中定位指针,执行删除时,可删除的总是第一行,按说从前台移动指针定位没错呀,我的代码如下: Dim adc As New ADODB.Recordset Dim con As New ADODB.Connection Dim tt As String tt = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=mis;Data Source=jm01" adc.CursorLocation = adUseClient adc.CursorType = adOpenDynamic adc.LockType = adLockOptimistic con.Open tt adc.Open "select * from login", ttadc.Delete (adAffectCurrent) adc.Update
datagrid会自动刷新
有什么不方便的?
Dim adc As New ADODB.Recordset
Dim con As New ADODB.Connection
Dim tt As String
tt = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=mis;Data Source=jm01"
adc.CursorLocation = adUseClient
adc.CursorType = adOpenDynamic
adc.LockType = adLockOptimistic
con.Open tt
adc.Open "select * from login", ttadc.Delete (adAffectCurrent)
adc.Update