在一个DataWindow中修改多个Table
下面的脚本示例了在一个DataWindow中修改它所对应的多个表，int rc
string err
DataWindow建立了两个表Department和Employee的Join之上，它的Select语句为：
SELECT department.dept_id, department.dept_name,
employee.emp_id, employee.emp_fname,
employee.emp_lname FROM department, employee
在开始设置为对Department表可修改。所以，可以首先修改Department表，设置Reset标志，
以便对表的修改不改变数据窗口的行列状态(假设使用的是SetTransObject，以便对数据库的
修改不会自动提交)
rc = dw_1.Update(true,false)
//如果对Department表的修改成功，下一步就要修改另一个表
IF rc = 1 THEN
//首先，关掉对Department表的修改
dw_1.Modify(department_dept_name.Update = No)
dw_1.Modify(department_dept_id.Update = No)
dw_1.Modify(department_dept_id.Key = No)
//使Employee表成为新的可修改表
dw_1.dwModify(DataWindow.Table.UpdateTable = ~employee~)
dw_1.Modify(employee_emp_id.Update = Yes)
dw_1.Modify(employee_emp_fname.Update = Yes)
dw_1.Modify(employee_emp_lname.Update = Yes)
dw_1.Modify(employee_emp_id.Key = Yes)
然后修改Employee表
rc = dw_1.Update()
IF rc = 1 THEN
COMMIT USING SQLCA;
ELSE
MessageBox(Update of employee table failed, Rolling back changes to & department and employee)
ROLLBACK USING SQLCA;
END IF
如果还要修改别的表，重设修改标志
dw_1.Modify(department_dept_name.Update = Yes)
dw_1.Modify(department_dept_id.Update = Yes)
dw_1.Modify(department_dept_id.Key = Yes)
dw_1.Modify(DataWindow.Table.UpdateTable = ~department~)
dw_1.Modify(employee_emp_id.Update = No)
dw_1.Modify(employee_emp_fname.Update = No)
dw_1.Modify(employee_emp_lname.Update = No)
dw_1.Modify(employee_emp_id.Key = No)
ELSE
MessageBox(Update of department table failed, Rolling back changes to department)
ROLLBACK USING SQLCA;
END IF
很好 借鉴了 谢谢分享，学习了
页:
[1]