Skip to content
Permalink
Browse files

Fix crash in suggest popup without table or view. Closes #848

  • Loading branch information
ansgarbecker committed Jan 13, 2020
1 parent 93a3c97 commit fe7101d9a1558d82fbc7370c7d9ebe0a76307247
Showing with 1 addition and 1 deletion.
  1. +1 −1 source/main.pas
@@ -6003,11 +6003,11 @@ procedure TMainForm.SynCompletionProposalExecute(Kind: SynCompletionType;
DBObjects := Conn.GetDBObjects(dbname);
for Obj in DBObjects do begin
if Obj.Name = tblname then begin
Columns := TTableColumnList.Create(True);
case Obj.NodeType of
lntTable:
Columns := Obj.TableColumns;
lntView: begin
Columns := TTableColumnList.Create(True);
Conn.ParseViewStructure(Obj.CreateCode, Obj, Columns, Dummy, Dummy, Dummy, Dummy, Dummy);
end;
end;

0 comments on commit fe7101d

Please sign in to comment.
You can’t perform that action at this time.