主从表:Master/Detail 用ADO 通过SQL 指令关联。
在主表的AfterScroll事件中写:
adqDetail.Parameters[0].Value :=
adqMaster.FieldByName(adqDetail.Parameters[0].Name).Value; --注意如果
if adqDetail.Active then
adqDetail.Requery;
在从表的NewRecord事件中写:
DataSet.FieldByName(adqDetail.Parameters[0].Name).Value :=
adqDetail.Parameters[0].Value;
主从表的locktype 均为ltBatchOptimistic
在从表的BeforeInsert事件中把主表的模式改为:Master.CheckBrowseMode
另有一个物料基本档(TB1),其中有品号,品名,规格。现在在主从表中的从表中要增加一条记录,把物料品号增加到从表中,因不大算在从表存存物料的品名与规格,所以就用了两个Lookup字段(M1,M2),来显示品名与规格,结果是:查询时一切正常,但在新增记录时,就报错,如下:
Project TEST1.EXE raised exception class EOLeException with message '发生未知错误'.
请各大侠看看问题出在那里,该如何处理,或这种情况,是否有另外的解决方案。
在主表的AfterScroll事件中写:
adqDetail.Parameters[0].Value :=
adqMaster.FieldByName(adqDetail.Parameters[0].Name).Value; --注意如果
if adqDetail.Active then
adqDetail.Requery;
在从表的NewRecord事件中写:
DataSet.FieldByName(adqDetail.Parameters[0].Name).Value :=
adqDetail.Parameters[0].Value;
主从表的locktype 均为ltBatchOptimistic
在从表的BeforeInsert事件中把主表的模式改为:Master.CheckBrowseMode
另有一个物料基本档(TB1),其中有品号,品名,规格。现在在主从表中的从表中要增加一条记录,把物料品号增加到从表中,因不大算在从表存存物料的品名与规格,所以就用了两个Lookup字段(M1,M2),来显示品名与规格,结果是:查询时一切正常,但在新增记录时,就报错,如下:
Project TEST1.EXE raised exception class EOLeException with message '发生未知错误'.
请各大侠看看问题出在那里,该如何处理,或这种情况,是否有另外的解决方案。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货