For Each dc As DataCol In DataTables("订单").DataCols if dc.Expression is nothing
MessageBox.Show("表达式列")
end if
Next
会出现read only的错误