多行选择处理

全选：
Sub btnAll_Click()
  DBGrid14.SelectAllCells()
End Sub

取消全选：
Sub btnAllCancel_Click()
  DBGrid14.UnSelectAllCells()
End Sub

判断多选
Sub btnInsert_Click()
   nRowIndex = DBGrid14.GetCurRowIndex()
   RowHeadHeight=DBGrid14.GetFixedRowCount
   For i = 0 To DBGrid14.GetRecordCount - 1
     If  DBGrid14.IsRowSelected(i + RowHeadHeight) then
        if lstrKey = "" THEN
           lstrKey ="'"+ DBGrid14.GetFieldStringValue("序号",i) +"'"
        ELSE
           lstrKey =lstrKey & "," &  "'"+ DBGrid14.GetFieldStringValue("序号",i) +"'"
        END IF
     End If
   Next
  
   If lstrKey="" then
      MsgBox "没有选择订单明细项目!"
      exit sub
   end If

   strSql = "Select 序号 From 出货表_明细 Where 出货单号 = '"+ebCode.Text+"' And 序号 IN("+lstrKey+") "
   strRet = DBEngine.WebFunction("SqlQuery",strSql,"")
     strError = DBEngine.GetElemData(strRet, "Error")
   If strError<>"" Then
      Msgbox "SQL语句执行失败:" + strError
      exit Sub
   End If
   strCode = DBEngine.GetElemData(strRet,"序号")
   If strCode <> "" Then
       DBEngine.Msgbox "同一笔订单的明细项不能重复添加，请重新选择！"
       Exit Sub
   End If

   strInsert = "Insert 出货表_明细(出货单号,订单号,序号,料号,品名_1,品名_2,批号,单位,规格型号,客户要求交货期,预交日期,交货日期) " +_
               "Select "+ebCode.Text+" AS 出货单号,订单号,序号,料号,品名_1,品名_2,批号,单位,规格型号,客户要求交货期,预交日期,'"+dtcDate.Text+"' AS 交货日期"
   strInsert = strInsert + " FROM 订单表_明细 WHERE 序号 IN("+lstrKey+") "

   StrRet = DBEngine.WebFunction("SqlNonQuery", StrInsert, "")
   strError = DBEngine.GetElemData(strRet, "Error")
   If strError<>"" Then
      Msgbox "SQL语句执行失败:" + strError
      exit Sub
   End If
   MainGrid.UpdateFromDataSourceUrl("")

End Sub