Dim fdr As DataRow = DataTables("计算公式").Find("',' + 参与计算字段 + ',' like '%," & e.datacol.name & ",%'")
If fdr IsNot Nothing Then
msgbox("执行函数")
End If