光标无法定位在DATAGRID最后一行

Question

    SSQL = "DELETE FROM PRO_BAR_TOTAL where bar_byte is NULL"
    Set mrc = exesql(SSQL)    Adodc1.RecordSource = "SELECT AR_STANDARD_ID,BAR_STANDARD_NAME,BAR_STANDARD_QUANTITY,T_PRO_ID     
From PRO_BAR_TOTAL WHERE T_PRO_ID = '" & CurPROID & "' and bar_byte = 'AA' order by BAR_STANDARD_ID"
    Set DG1.DataSource = Adodc1
    Adodc1.Refresh    Set DG1.DataSource = Adodc1
    Adodc1.Recordset.MoveLast    '每次将光标定位在最后
    DG1.SetFocus
    SendKeys "{down}"

Answer 1

    SSQL = "DELETE FROM PRO_BAR_TOTAL where bar_byte is NULL" 
    Set mrc = exesql(SSQL)     Adodc1.RecordSource = "SELECT AR_STANDARD_ID,BAR_STANDARD_NAME,BAR_STANDARD_QUANTITY,T_PRO_ID    
From PRO_BAR_TOTAL WHERE T_PRO_ID = '" & CurPROID & "' and bar_byte = 'AA' order by BAR_STANDARD_ID" 
    Set DG1.DataSource = Adodc1 
    Adodc1.Refresh     Set DG1.DataSource = Adodc1 
    Adodc1.Recordset.MoveLast    '每次将光标定位在最后 
    'DG1.SetFocus 
    'SendKeys "{down}"    DATAGRID已经到最后，不能超出
    Adodc1.Recordset.MoveNext        '这样可以达到你的目的