Create Cursor Dd (Th1 C(1),Th2 C(1),Th3 C(1),Th4 C(1)) Append Blank && 是不是少了这行代码 For lnI=1 To 4 Cc=Transform(lnI) Replace Th&Cc With "1" EndFor Browse