一个表,三列: 表名、列名、表达式
AfterOpenProject事件:
For Each r As DataRow In DataTables("表名").DataRows DataTables(r("表名")).Datacols(r("列名")).Expression = r("表达式")Next