目前在V11.0上写了个m_BillInterface.DeleteEntryData(3)
然后单击grid2时会有不停闪动，好歹能闪到最后定格在Cell里面。

现在升级了V14.2同样的代码，单击Grid2的某个Cell后，执行了m_BillInterface.DeleteEntryData(3)
焦点不知道去了哪里，不在格子里。

请问有其他的写法嘛？给个例子参考下。

Dim entryId As Integer
Dim ok As Boolean
Dim iCount As Integer, i As Long

Dim sSql As String
Dim rs As New ADODB.Recordset

sSql = "select "

If NewRow > 0 Then 'IF1

fid = m_BillInterface.Data("page2")(NewRow)(m_BillInterface.TableInfo("map")("FEntryID2"))("FFLD")
If fid = "" Then Exit Sub

sSql = sSql & " where A.FEntryIDSource=" & fid & " order by A.FIndex ASC "
Set rs = m_BillInterface.K3Lib.GetData(sSql)




If Not rs Is Nothing Then 'IF2
ok = m_BillInterface.DeleteEntryData(3)

If rs.RecordCount > 0 Then 'IF3

i = 1
Do While Not rs.EOF

ok = m_BillInterface.InsertNewRowAndFill(3, i, "FEntryIDSource", rs.Fields("FEntryIDSource").Value, "FBase1", rs.Fields("FNumber").Value)

rs.MoveNext
i = i + 1
Loop



End If 'IF3

End If 'IF2

Else

End If 'IF1