我想实现:点击这个按钮后,把"检测录入表"中的某些列剪切到"检测保存"表,黄色的代码我不会写,我希望剪切前做一个判断:如果"检测录入表"中的"检测判断"列的数值是"异常"的禁止剪切(或"正常"的可以剪切)
Dim f As New Filler
f.SourceTable = DataTables("检测录入表")
f.SourceCols = "基准下限,基准上限,检测内容,检测值,检测判断,单位" '指定数据来源列
f.DataTable = DataTables("检测保存")
f.DataCols = "基准下限,基准上限,检测内容,检测值,检测判断,单位" '指定数据接收列
f.Filter = "检测判断 = '" & Tables("检测录入表").current("检测判断")="正常" & "'"
f.Fill() '填充数据
红色的和黄色的不会写,请劳驾各位
谢谢