RepositoryItemLookUpEdit编辑列如何输入新值

来源:互联网 发布:打开淘宝网址自动关闭 编辑:程序博客网 时间:2024/05/12 15:33

 前提已绑定数据源,类型为DataTable


 1.在RunDesiger的Repository内置编辑器设置ProcessNewValue事件

  2.
  Private Sub RepositoryItemLookUpEdit1_ProcessNewValue(ByVal sender As System.Object, ByVal e As DevExpress.XtraEditors.Controls.ProcessNewValueEventArgs) Handles RepositoryItemLookUpEdit5.ProcessNewValue
        Dim Row As DataRow
        '添加新(空)行
        Row = CType(RepositoryItemLookUpEdit1.Properties.DataSource, DataTable).NewRow()
       
        '给新行各列赋值
        Row("DESCRIPTION") = e.DisplayValue.ToString().Trim()
        Row("PARTNO") = ""


        '将新行加入到该类编辑器绑定的集合
'RepositoryItemLookUpEdit1.Properties.DataSource为绑定的可供用户选择的数据源,DataTable是数据的类型
        CType(RepositoryItemLookUpEdit1.Properties.DataSource, DataTable).Rows.Add(Row)
        e.Handled = True
    End Sub
原创粉丝点击