dw_1置于tab_1上
在窗口的 selectionchanged 里写代码
choose case newindex
case 1
dw_1.setfilter('条件1')
dw_1.filter()
messagebox('','条件1')
case 2
dw_1.setfilter('条件2')
dw_1.filter()
messagebox('','条件2')
case 3
dw_1.setfilter('条件3')
dw_1.filter()
messagebox('','条件3')
end choose
在 保存按钮 里写
sqlca.autocommit = false
if dw_1.update() = 1 then
messagebox('提示','保存成功!')
COMMIT;
else
messagebox('提示','保存失败!')
ROLLBACK;
end if
sqlca.autocommit = true