代码之家 › 专栏 › 技术社区 › Charlie

llblgen pro:如何计算给定字符串的EntityField

llblgenpro vb.net

Charlie · 技术社区 · 15 年前

我有一个llblgen pro项目,它生成了vb.net 2.0自助服务代码。

我有一个函数,可以根据使用生成的代码进行的搜索返回自定义结构的列表。

我想为这个函数提供一个字段名和值的字典,并为每个字段名和值在搜索中添加一个新的谓词表达式。

如何检查字典中表示字段名的字符串,并确定要为哪个EntityField添加预关联表达式?

代码样本

Dim dbFiles As New AllFilesCollection
Dim dbFilter As New PredicateExpression

If Not String.IsNullOrEmpty(ClientName) Then
  dbFilter.Add(New PredicateExpression(AllFilesFields.ClientMenuName = ClientName))
End If

If Not String.IsNullOrEmpty(SearchText) Then
  dbFilter.Add(New FieldLikePredicate(AllFilesFields.ClientReference, "%" & SearchText & "%"))
  dbFilter.AddWithOr(New FieldLikePredicate(AllFilesFields.Cmsnumber, "%" & SearchText & "%"))
End If

For Each Filter As KeyValuePair(Of String, String) In Filters

  'Custom code here to determine the field to add a filter for.

Next

dbFiles.GetMulti(dbFilter)

2 回复 | 直到 15 年前

TonyOssa 15 年前

我认为这个问题被忽略了,因为它看起来像一个llblgen问题,但可能不是。

如果你知道你所有的专栏:

西蒂
状态
拉链

然后你只需要把字符串转换成这样的值…

For Each Filter As KeyValuePair(Of String, String) In Filters
    Select Case filter.Key
        Case "City"
            dbFilter.Add(New PredicateExpression(AllFilesFields.City = filter.Value))
        Case "State"
            dbFilter.Add(New PredicateExpression(AllFilesFields.State = filter.Value))
        Case "Zip"
            dbFilter.Add(New PredicateExpression(AllFilesFields.Zip = filter.Value))
    End Select
Next

David Elizondo 15 年前

你也可以这样做:

Dim fields As IEntityFields = new AllFieldsEntityFactory().CreateFields();
For Each Filter As KeyValuePair(Of String, String) In Filters
    dbFilter.Add((EntityField) fields[Filter.Key] == Filter.Value);
Next

推荐文章

Karl · 如何引发PrintPage的事件?

2 年前

Daniel · LINQ从列表的dataTable中提取部分匹配

3 年前

limelatte · 如何在datagridview中屏蔽特定列?

3 年前

Orsi · 选择嵌套列表的最大值和最小值。网

3 年前

D T · 如何为Excel Com设置公式?

3 年前

Lenin · 将数组中的每个元素与另一个数组中的相应元素相乘

3 年前

Christian Balabat · 从今天的日期所在的ms access数据库获取数据很热

3 年前

Jack · gridview到textbox的事件与vb中textbox的结果不匹配。网

3 年前

Bryan Max · Vb。如果车主的数据没有停车,5分钟后,网络Mysql错误停车

3 年前

Myronaz · 如何在WinForms VB中设置WebView2用户数据文件夹。网络应用?

3 年前