我的程序如下
Private Sub Command1_Click()
If cleared = True Then
  Unload Me
  Exit Sub
End IfDim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.ConnectionString = cnn.ConnectionString
conn.Open
conn.Execute ("insert into cleared ( serial,title,counts) select serial,title,counts from guding where clear=true ")
i = i + 1
conn.Execute ("delete * from guding where clear=true")
conn.Close
MsgBox "Clearing job is over,click 'OK' close windows", vbInformation, "固定资产"
Command1.Caption = "OK!" & i
cleared = TrueEnd Sub
两个表中两个相同的字段? 没有呀
各位发表一下高见吧