Table1.DatabaseName := 'XXX';
Table1.TableName := 'lin.db';
Table1.Open;MonthCalendar1.Date := Table1.FieldByName('字段名').AsDateTime;Table1.Close;
Table1.TableName := 'lin.db';
Table1.Open;MonthCalendar1.Date := Table1.FieldByName('字段名').AsDateTime;Table1.Close;
那如何让这些字段在MonthCalendar1上显示呢?