[borland eco 技术]experssionhandle数据源,在datagrid中利用checkbox显示并编辑boolean类型数据

经过艰苦的探索,今天下午还是做出来了,贴出相关代码

环境为expressionhandle名为ehperson,是person类的全部实例 ,即express表达式person.allinstances

1.aspx文件

   <ASP:DataGrid id="DataGrid1" runat="server" width="569px" height="244px" bordercolor="White" borderstyle="Ridge" borderwidth="2px" cellspacing="1" backcolor="White" cellpadding="3" gridlines="None" datasource="<%# ehperson %>" autogeneratecolumns="False" datakeyfield="ExternalId">
  <FooterStyle forecolor="Black" backcolor="#C6C3C6"></FooterStyle>
  <SelectedItemStyle font-bold="True" forecolor="White" backcolor="#9471DE"></SelectedItemStyle>
  <ItemStyle forecolor="Black" backcolor="#DEDFDE"></ItemStyle>
  <HeaderStyle font-bold="True" forecolor="#E7E7FF" backcolor="#4A3C8C"></HeaderStyle>
  <Columns>
    <ASP:BoundColumn datafield="name" sortexpression="name" headertext="name"></ASP:BoundColumn>
<!--模板开始textbox-->

    <asp:templatecolumn>
    <itemtemplate>
    <asp:textbox  id="text1" runat="server" enabled="False" TEXT='<%# DataBinder.Eval(Container.DataItem,"NAME")%>'></asp:textbox>
    </itemtemplate>
<edititemtemplate>
    <asp:textbox  id="text1" runat="server" enabled="TRUE" TEXT='<%# DataBinder.Eval(Container.DataItem,"NAME")%>'></asp:textbox>
</edititemtemplate>

    </asp:templatecolumn>

<!--模板结束-->

<!--模板开始checkbox-->

    <ASP:TemplateColumn headertext="性别">
   <ItemTemplate>
     <asp:checkbox id="checkbox1" runat="server" enabled="False" checked='<%# DataBinder.Eval(Container.DataItem,"sex")%>'>
    </asp:checkbox>
   </ItemTemplate>
   <EditItemTemplate>
  <asp:checkbox id="checkbox1" runat="server" enabled="true" checked='<%# DataBinder.Eval(Container.DataItem,"sex")%>'>
</asp:checkbox>
   </EditItemTemplate>
    </ASP:TemplateColumn>

<!--模板结束-->

    <ASP:EditCommandColumn buttontype="LinkButton" updatetext="Update" canceltext="Cancel" edittext="Edit"></ASP:EditCommandColumn>
    <ASP:ButtonColumn text="Delete" commandname="Delete"></ASP:ButtonColumn>
  </Columns>
  <PagerStyle horizontalalign="Right" forecolor="Black" backcolor="#C6C3C6"></PagerStyle>
   </ASP:DataGrid>

 有颜色的部分是自定义部分,数据源是expressionhandle,名为ehperson

2在相关的.pas文件中的update事件加入两行代码,一个自定义控件模板一行

红色部分为加入

procedure TWebForm3.DataGrid_UpdateCommand(source: TObject; e: System.Web.UI.WebControls.DataGridCommandEventArgs);
var
  SourceGrid: DataGrid;
  Id: string;
  Row: TObject;
  Eh: ElementHandle;
  ColIndex: Integer;
  Col: BoundColumn;
begin
  SourceGrid := source as DataGrid;
  Id := SourceGrid.DataKeys[e.Item.ItemIndex].ToString;
  SourceGrid.DataBind(); // To set DataSource
  Eh := SourceGrid.DataSource as ElementHandle;
  Row := eh.RenderElement(ObjectForId(Id));

  for colIndex := 0 to SourceGrid.Columns.Count - 1 do
  begin
    Col := BoundColumn(SourceGrid.Columns[colIndex]);
    if Assigned(Col) and (not Col.ReadOnly) then
      eh.SetRenderedElementProperty(row, Col.DataField, (e.Item.Cells[colIndex].Controls[0] as TextBox).Text, true);
  end;

  eh.SetRenderedElementProperty(row, 'name', (e.Item.FindControl('text1') as textbox).text, true);
  eh.SetRenderedElementProperty(row, 'sex', convert.ToString((e.Item.FindControl('checkbox1') as checkbox).Checked), true);

  UpdateDatabase;
  SourceGrid.EditItemIndex := -1;
  DataBind;
end;

这里,sex,name分别为ehperson里面的两个字段名.convert.ToString((e.Item.FindControl('checkbox1') as checkbox).Checked) 这里只接受字符表达式,故要转换类型