？(0分)

来自：zbz, 时间：2001-12-29 18:00:00, ID：822034 [显示：小字体 | 大字体]
表1
tId flag
1 0
2 0
3 0
表2
table1Id Qty1 Qty2
1 80 80
1 90 85
2 90 90
2 100 100
当在 表1.tid=表2.table1id 时,如果表2.Qty1=表2.Qty2时,将表1的flag设为1
即根据这想法应得出表1的运行结果:
tId flag
1 0
2 1
3 0

来自：zhanggeye, 时间：2001-12-29 18:12:00, ID：822088 | 编辑
update 表1 set flag=1 where tid not in (select tableid from 表2 where qty1<>qty2 group by tableid)

来自：helpmybl, 时间：2001-12-30 9:19:00, ID：823084
试试:
update 表1 set flag='1' where tid in (select table1id from 表2 where qty1=qty2 group by table1id)

来自：zbz, 时间：2001-12-30 10:35:00, ID：823380
接受答案了.
得分大富翁：helpmybl

我也加一贴
http://www.delphibbs.com/delphibbs/dispq.asp?lid=824585
问题：如何区分驱动器属性 ( 积分：200, 回复：4, 阅读：25 )
分类：Object Pascal ( 版主：menxin, cAkk )
来自：pcpc, 时间：2001-12-30 16:37:00, ID：824585 [显示：小字体 | 大字体]
同上

来自：liangtianyi, 时间：2001-12-30 16:39:00, ID：824599
用TDriveComboBox中的命令吧

来自：flintsoft, 时间：2001-12-30 16:41:00, ID：824610
var
NewDrive:string;
begin
case GetDriveType(PChar(NewDrive)) of
1: FDriveType := dNonExisting;
DRIVE_REMOVABLE: FDriveType := dRemoveable;
DRIVE_REMOTE: FDriveType := dRemote;
DRIVE_FIXED: FDriveType := dFixed;
DRIVE_CDROM: FDriveType := dCDRom;
DRIVE_RAMDISK: FDriveType := dRamDisk;
else
FDriveType := dUnknown;
end;

来自：bluerain, 时间：2001-12-30 16:46:00, ID：824638 | 编辑
UINT GetDriveType(
LPCTSTR lpRootPathName // root directory
);

DiskName 例如'c:/'
例如:
case GetDriveType(PChar(DiskName)) of
DRIVE_UNKNOWN : DiskType := '未知驱动器';
DRIVE_NO_ROOT_DIR : DiskType := '不是驱动器';
DRIVE_REMOVABLE : DiskType := '软驱';
DRIVE_FIXED : DiskType := '本地硬盘';
DRIVE_REMOTE : DiskType := '网络硬盘';
DRIVE_CDROM : DiskType := '光驱';
DRIVE_RAMDISK : DiskType := '虚拟硬盘';
else DiskType := '未知驱动器';
end;

来自：pcpc, 时间：2001-12-30 16:47:00, ID：824643
接受答案了.
得分大富翁：liangtianyi

多谢好人。

[]

有作弊嫌疑！[!][!][!]

接受答案了.