zoukankan      html  css  js  c++  java
  • Delphi DBGridEH中,选中行、列、单元格

    // 新增行后,默认首列

    procedure TForm1.ADOQuery1AfterInsert(DataSet: TDataSet);
    begin
      with DBGridEh1 do
      begin
        SelectedIndex := 0;
      end;
    end;

    // 行选中

    DBGridEh_Yingfu_SearchQK.SelectedRows.SetCurrentRowSelected(True);

    //选中单元格

    DBGridEh1.SelectedField := ADOQuery1.FieldByName('收银简称');

    //

      with DbgridEh_Xiaoshth_mx.SelectedField do
        if DATASET.Active then
          else if (FieldName = 'peij_dj') then //焦点停留在单价上
          begin
            Action_Searchprice.Execute;
          end

    // 下拉框

        with DbgridEh_Xiaoshth_mx, DataSource.DataSet do
        begin
          SelectedField := FieldByName('cangk_dm');
          with dm_main.Query_Cangk do
          begin
            if active then close;
            open;
            first;
            Columns[SelectedIndex].KeyList.Clear;
            Columns[SelectedIndex].picklist.Clear;
            while not eof do
            begin
              Columns[SelectedIndex].KeyList.Add(fieldbyname('cangk_dm').AsString);
              Columns[SelectedIndex].PickList.Add(fieldbyname('cangk_mc').AsString);
              next;
            end;
          end;
          columns[SelectedIndex].autodropdown := true;
        end;

        with DbgridEh_Xiaoshth_mx, DataSource.DataSet do
        begin
          SelectedField := FieldByName('peij_dw');
          Columns[SelectedIndex].PickList := ReturnItemString(ITDanw_lc);
          columns[SelectedIndex].autodropdown := true;
          SelectedField := FieldByName('peij_jk');
          with Columns[SelectedIndex].PickList do
          begin
            Clear;
            Add('国产');
            ADd('进口');
            add('');
          end;
          Columns[SelectedIndex].AutoDropDown := true;
        end;
    ---------------------
    作者:苍穹帝
    来源:CSDN
    原文:https://blog.csdn.net/gjtao1130/article/details/42120319?utm_source=copy
    版权声明:本文为博主原创文章,转载请附上博文链接!

  • 相关阅读:
    SAXParseException;前言中不允许有内容的错误
    FATAL Alert:BAD_CERTIFICATE
    DB2的递归
    在Unity中针对屏幕自适应,我们该如何做呢?
    原码与反码的区别?
    在Unity 3D中加入Image图片
    你的外接键盘的小键盘在Num Lock键亮着的,但是数字按了不能用,解决办法在这里
    唯美英文(一)
    如何使用gcc编译器
    C++中const的用法
  • 原文地址:https://www.cnblogs.com/jijm123/p/9794814.html
Copyright © 2011-2022 走看看