用 ReplaceFor 可以吗?
Dim filter as string
filter="虚存量] <" &s
DataTables("表A").ReplaceFor("分配量", 分配量-虚存量, filter)
DataTables("表A").ReplaceFor("虚存量", 0, filter)
filter="虚存量] >" &s
DataTables("表A").ReplaceFor("分配量", 分配量-s, filter)
DataTables("表A").ReplaceFor("虚存量", 虚存量 -s, filter)