网格前加CheckBox栏位(100分)

WilliamGui · 2008-06-19

做一个选择单据的对话框，对话框放网格显示待选的单据 但如何在网格前加CheckBox栏位，用户可勾选，再点击确定按钮 大家说说思路 已尝试过: Table不允许加无用的字段 计算字段不能修改

Corn3 · 2008-06-19

可以用ListView啊。把额外的信息存在Data里

骑驴逛街 · 2008-06-19

DBGridEh中带有checkbox设置Checkboxes->True,KeyList写入YES和NO； 设置query控件连接一个UpdateSQL控件； 将query控件的CachedUpdates设置为True，就可以对设置的复选框操作了。

lixin0117 · 2008-06-19

楼上的说的对，KeyList写入0和1也可以

WilliamGui · 2008-06-23

我用的就是EhLib，新增的栏位，我不想指定字段

xgwzw · 2008-06-23

gz这个问题,顶一下,我也想知道

bsense · 2008-06-24

listview, rzstringgrid,ehlib,advstringgrid,感知，非感知都有

hxy2002 · 2008-06-24

http://www.delphibbs.com/delphibbs/dispq.asp?lid=3692151

WilliamGui · 2008-06-24

不明白，我举个例，大家说说如何实现 一个客户Table，有两个字段ItemNo, ItemName 现在在销售订单功能里需要选择物品，这个选择是个对话框，显示为：   选择物品编号  物品名称   [ ]  001       aaaaaaaaaaaaaa   [ ]  002       bbbbbbbbbbbbbb 其中，选择是给用户勾选的，用户可以勾多个， 如何实现

leader47 · 2008-06-27

可以动态在dataset和DBgrideh中分别添加选择的字段。此字段与数据库无关，是临时字段。 dataset.fieldDef.add();

WilliamGui · 2008-06-30

To leader47:   添加后，不能勾选，即这个假字段是只读的

szhcracker · 2008-07-22

用AdvStringGrid。 1、AddCheckBoxToColOfGrid(grdCheck, [0]); procedure AddCheckBoxToColOfGrid(AdvStringGrid: TAdvStringGrid; ACols: Array of Integer); var   i, ARow: Integer; begin   with AdvStringGrid do   for ARow := 1 to RowCount - 1 do   begin     for i := Low(ACols) to High(ACols) do       if Cells[ACols,ARow] = '1' then       begin         AddCheckBox(ACols, ARow ,True, False);         Cells[ACols,ARow] := '' ;       end else       begin         AddCheckBox(ACols, ARow ,False, False);         Cells[ACols,ARow] := '' ;       end;     end; end; 2、双击事件 procedure TfrmConAndDev_Check.grdCheckDblClickCell(Sender: TObject; ARow,   ACol: Integer); begin   if (ARow > 0) and (Cells[1, 1] <> '') then   begin     ToggleCheckBox(0, ARow);     GetSelectedInfo;   end; end; 3、procedure TfrmConAndDev_Check.GetSelectedInfo; var   i: Integer;   SelCount: Integer;   AStatue: Boolean; begin   for i := 1 to grdCheck.RowCount - 1 do   begin     grdCheck.GetCheckBoxState(0, i, AStatue);     if AStatue then     begin       Inc(SelCount);       ...     end;   end; end;

xyzbox · 2008-07-22

把选中栏的字段设置成布尔类型的

WilliamGui · 2008-07-23

我用得是DBGridEh，大家有什么好建议

fstar · 2008-08-04

这个问题我最近也遇到了，我的解决方法是： 在需要勾选的表中增加一个BOOLEAN字段，我用的SQL SERVER 没有这个，我用的是INT字段。然后在dbgrideh中增加这个字段，类型选为checkbox,这样一来，在dbgridh中chedked这个字段，会自动更改数据库中的内容为1,否则为0.然后检索表中所有该字段为1的记录就是用户选选择的记录。处理完成之后，用语句将该字段清0即可。

WilliamGui · 2008-08-04

告诉大家，我想到一种方法，应该可以解决 与fstar的方法类似，不过更好 增加一张表，这个表只有一个字段，一行记录 写select时cross join这个表怎么的，就可以啦

WilliamGui · 2008-08-04

为什么很多问题都是自己解决的

fstar · 2008-08-04

没注意看你的要求，你的方法更好。我在我的表里加了个无用的字段，哈哈。。。

WilliamGui · 2008-08-05

to fstar: 如果感兴趣可以加入我办的群 17375641 中国ERP, 讨论Delphi问题 加入请注明

网格前加CheckBox栏位(100分)

WilliamGui

Unregistered / Unconfirmed

Corn3

Unregistered / Unconfirmed

骑驴逛街

Unregistered / Unconfirmed

lixin0117

Unregistered / Unconfirmed

WilliamGui

Unregistered / Unconfirmed

xgwzw

Unregistered / Unconfirmed

bsense

Unregistered / Unconfirmed

hxy2002

Unregistered / Unconfirmed

WilliamGui

Unregistered / Unconfirmed

leader47

Unregistered / Unconfirmed

WilliamGui

Unregistered / Unconfirmed

szhcracker

Unregistered / Unconfirmed

xyzbox

Unregistered / Unconfirmed

WilliamGui

Unregistered / Unconfirmed

fstar

Unregistered / Unconfirmed

WilliamGui

Unregistered / Unconfirmed

WilliamGui

Unregistered / Unconfirmed

fstar

Unregistered / Unconfirmed

WilliamGui

Unregistered / Unconfirmed

Similar threads