专注于互联网--专注于架构

最新标签
网站地图
文章索引
Rss订阅
Option ExplicitPrivate Sub Command1_ClickDim I As Long, J As Long, K As LongDim PrString As StringFor I = 0 To Data1.Record.RecordCount - 1If K = DBGrid1.VisibleRows ThenDBGrid1.Scroll 0, DBGrid1.VisibleRowsK = 0End IfFor J = 0 To DBGrid1.Columns.Count - 1PrString = PrString &DBGri [阅读全文] [PDF]
1 共1条 分1页