摘要:
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("se... 阅读全文
posted @ 2007-06-16 08:09 King0502 阅读(550) 评论(0) 推荐(0) 编辑