主题：表达式列，不能修改（提示为只读）

Tables("下料裁布计划_Table3").Fill("Select * From {清单计划} Where 清单编号 Is Null","s" ,True)
DataTables("下料裁布计划_Table3").DataCols.Add("余量", Gettype(Double))
Tables("下料裁布计划_Table3").AllowAddNew = True
Tables("下料裁布计划_Table3").AllowDelete = True
Tables("下料裁布计划_Table3").AllowEdit = True
For Each r As Row In Tables("下料裁布计划_Table3").Rows
    r("余量") = r("工序总量")
Next

然后，去编写你的DataColChanged事件，修改总量的时候，给余量赋值。