如何在DataTable添加列的表达式中使用自定义函数

问题原因 #

DataTable的Columns.Add方法中，计算列的表达式参数是字符串形式的内置表达式，只能识别.NET表达式引擎支持的内置函数（如IIF、Len、Trim等），无法直接调用自定义的VB函数——因为表达式引擎无法解析外部函数的调用逻辑，所以直接写MyFunc(Age)会报错。

解决方案 #

根据需求复杂度，有三种实用方案可选：

方案一：用内置函数替代（最简单，适合逻辑简单的场景）

你的MyFunc逻辑完全可以用内置的IIF表达式实现，直接使用你注释掉的代码即可：

MyTable.Columns.Add("isOk", GetType(Boolean), "IIF(Age>=10 And Age<=20,True,False)")

这种方式支持数据行更新时自动重新计算列值，性能最优。

方案二：通过RowChanged事件动态计算（适合复杂自定义逻辑，支持实时更新）

如果自定义函数逻辑复杂，无法用内置函数组合实现，可以给DataTable绑定RowChanged事件，在事件中手动调用自定义函数计算列值：

Dim MyTable As New DataTable
MyTable.Columns.Add("Name")
MyTable.Columns.Add("Age", GetType(Integer))
' 先添加isOk列，不指定表达式
MyTable.Columns.Add("isOk", GetType(Boolean))

' 绑定RowChanged事件，监听数据行变化
AddHandler MyTable.RowChanged, AddressOf MyTable_RowChanged

' 添加数据
MyTable.Rows.Add("Ali", 9)
MyTable.Rows.Add("Amir", 15)
MyTable.Rows.Add("Mansour", 18)

' 事件处理函数：当行数据变化时计算isOk的值
Private Sub MyTable_RowChanged(sender As Object, e As DataRowChangeEventArgs)
    ' 跳过已删除的行
    If e.Row.RowState <> DataRowState.Deleted Then
        Dim age As Integer = CInt(e.Row("Age"))
        e.Row("isOk") = MyFunc(age)
    End If
End Sub

' 你的自定义函数（可以保持原有逻辑）
Function MyFunc(InAge As Integer) As Boolean
    Return InAge >= 10 AndAlso InAge <= 20
End Function

方案三：用LINQ生成新表（适合一次性数据，无需后续更新）

如果数据是一次性加载，后续不会修改，可以用LINQ查询原表，直接生成包含计算列的新DataTable：

Dim MyTable As New DataTable
MyTable.Columns.Add("Name")
MyTable.Columns.Add("Age", GetType(Integer))
MyTable.Rows.Add("Ali", 9)
MyTable.Rows.Add("Amir", 15)
MyTable.Rows.Add("Mansour", 18)

' 通过LINQ查询生成带计算列的新表
Dim newTable = (From row In MyTable.AsEnumerable()
                Select New With {
                    .Name = row("Name").ToString(),
                    .Age = row.Field(Of Integer)("Age"),
                    .isOk = MyFunc(row.Field(Of Integer)("Age"))
                }).CopyToDataTable()

内容的提问来源于stack exchange，提问作者Mansour Dalir