这是我的部分原代码
Private Sub Print_Click()
Temp = 0
For i = 0 To List1.ListCount - 1
If (List1.Selected(i) = True) Then
FieldName(Temp) = List1.List(i)
Temp = Temp + 1
End If
Next i
FieldStr = FieldName(0)
If Temp > 0 Then
i = 0
For i = 1 To Temp - 1
FieldStr = FieldStr & "," & FieldName(i)
Next i
End If
Dim sql As String
RS.Close
On Error Resume Next
Connect.Execute ("drop table Print")
Connect.Execute ("select " & FieldStr & " into Print from query")‘该表有40个字段
RS.Open "select * from Print", Connect, adOpenStatic, adLockOptimistic’该表字段数为用户选择个数,<=40个
’*********************************************
‘下面需要将Print.dbf转换到可以打印的载体中进行打印
’*********************************************
Unload Form1
End Sub