For Each dr As Row In Tables("任务提醒").Rows If dr("姓名")="a" Then Functions.remove("sl") Functions.Add("sl", dr("语句") ) Functions.Complie() dr("数量")=Functions.Execute("sl") MessageBox.Show(dr("数量")) End If Next
语句为 DataTables("表A").SQLCompute("count(_identify)","审核时间 is null ") 能返回值1