mettable.Edit ;
num:=mettable.fieldbyname('MeetingNo').asinteger;
mettable.Delete ; contable.open; //删除con
contable.edit;
contable.First ;
while not conTable.eof do
begin
if contable.fieldbyname('MeetingNo').asinteger=num then
begin
contable.Delete;
end;
conTable.next;
end; deletable.open; //删除表dele
deletable.edit;
deletable.First ;
while not deleTable.eof do
begin
if deletable.fieldbyname('MeetingNo').asinteger=num then
begin
deletable.Delete; end;
deleTable.next;
end;
请大家看下,为什么不可以这样删除,如果是与meetingno相同的行有多个的话可能删不完整,可能也会出现说影响到多行的值,不能执行数据更新还有什么好方法可以删除吗?
num:=mettable.fieldbyname('MeetingNo').asinteger;
mettable.Delete ; contable.open; //删除con
contable.edit;
contable.First ;
while not conTable.eof do
begin
if contable.fieldbyname('MeetingNo').asinteger=num then
begin
contable.Delete;
end;
conTable.next;
end; deletable.open; //删除表dele
deletable.edit;
deletable.First ;
while not deleTable.eof do
begin
if deletable.fieldbyname('MeetingNo').asinteger=num then
begin
deletable.Delete; end;
deleTable.next;
end;
请大家看下,为什么不可以这样删除,如果是与meetingno相同的行有多个的话可能删不完整,可能也会出现说影响到多行的值,不能执行数据更新还有什么好方法可以删除吗?
解决方案 »
- delphi ADOQuery1.LoadFromFile如此诡异是什么原因?
- 有没有类似HashMap的稳定一些的Delphi三方控件?
- ==============关于组件名称的疑惑=================
- 急!!在线等!!!
- DELPHI中如何使用REC文件?(无内容)
- 如何制作浮动工具栏
- 如何将Dephi的数据库导入到Access的MDB数据文件中?!
- DBNavigator1的post按钮是什么意思?
- 如何用sql语言在query中进行update操作?
- 在Delphi中有无判断输入是否是日期型的?例如象VB中的IsDate样的函数?
- 备份问题
- 在TAdoDataSet中如何设置Filter比较两个字段值
应该这样:if contable.fieldbyname('MeetingNo').asinteger=num then
contable.Delete
else
conTable.next;