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