我想实现：点击这个按钮后，把"检测录入表"中的某些列剪切到"检测保存"表,黄色的代码我不会写，我希望剪切前做一个判断：如果"检测录入表"中的"检测判断"列的数值是"异常"的禁止剪切（或"正常"的可以剪切）

Dim f As New Filler
f.SourceTable = DataTables("检测录入表")
f.SourceCols = "基准下限,基准上限,检测内容,检测值,检测判断,单位" \'指定数据来源列
f.DataTable = DataTables("检测保存")
f.DataCols = "基准下限,基准上限,检测内容,检测值,检测判断,单位" \'指定数据接收列
f.Filter = "检测判断 = \'" & Tables("检测录入表").current("检测判断")="正常" & "\'"
f.Fill() \'填充数据

红色的和黄色的不会写，请劳驾各位

谢谢

请问能否再帮我修改一下代码,

点击按钮后执行：删除"计量确认表"中，"检测判断"列＝"正常"的行

DataTables("计量确认表").DataRows.Clear \'删除计量确认表中的数据

f.Filter = "检测判断 = \'正常\'"

谢谢

填充前判断可以了，谢谢