Data1.DatabaseName = App.Path + "\zb.mdb"
Data1.RecordSource = ("select * from xb where year(收支日期)='" + frmxb.myyear + "'")
Set dbzb = OpenDatabase(App.Path + "\zb.mdb")
Set relr = dbzb.OpenRecordset("select min(收支日期),max(收支日期),min(收支金额),max(收支金额) from xb where year(收支日期)='" + frmxb.myyear + "'")
Textmindate.Text = relr.Fields(0)
Textmaxmon.SelStart = 0
Textmaxmon.SelLength = Len(Textmaxmon.Text)
Chr(13)
MyStr = Format(Time, "Long Time")
MyStr = Format(MyTime, "hh:mm:ss AMPM")
MyStr = Format(5459.4, "##,##0。00")
此内容由惯性聚合(RSS阅读器)自动聚合整理，仅供阅读参考。 原文来自 — 版权归原作者所有。