01 2024 档案
摘要:Sub setBlankRowColor() Dim lngLastRow As Long Dim i As Long '获取工作表中已使用区域最后一行的行号 lngLastRow = Cells(Rows.Count,1).End(xlUp).Row '遍历行 For i = 1 To lngLa
阅读全文
摘要:SET DEFAULT TO e:\vfp123 CLOSE TABLES bjs=12 kms=2 DIMENSION km(10),mf(10) km(1)="yw" km(2)="sx" mf(1)=70 mf(2)=100 SELECT b USE wan3tj GO top SELECT
阅读全文