例如:
procedure TDataModule1.ADOQryInsModDepBeforeInsert(DataSet: TDataSet);
begin
case pas4MMInsertModifyDep.gInsModDep of //pas4MMInsertModifyDep为另一个Form的单元: TFormInsModDep;
1..4: begin
if FormInsModDep.ComboBox1.Text = '' then
begin
MessageDlg(#13#10+'请先选择部门!', mtInformation, [mbOK], 0);
abort;
end;
end;
end;
//此处ComboBox1.Text的值明明在FormInsModDep窗体中不为空, 但在DataModule中引用时却为空, 不知为什么?
end;
procedure TDataModule1.ADOQryInsModDepBeforeInsert(DataSet: TDataSet);
begin
case pas4MMInsertModifyDep.gInsModDep of //pas4MMInsertModifyDep为另一个Form的单元: TFormInsModDep;
1..4: begin
if FormInsModDep.ComboBox1.Text = '' then
begin
MessageDlg(#13#10+'请先选择部门!', mtInformation, [mbOK], 0);
abort;
end;
end;
end;
//此处ComboBox1.Text的值明明在FormInsModDep窗体中不为空, 但在DataModule中引用时却为空, 不知为什么?
end;
你再跟踪你的Combobox1.itemindex的值,看看到底怎么回事