1,453
社区成员




Private Sub Command1_Click()
Dim sCmd As String
Dim iRes As Long
sCmd = "CREATE DBF c:\LS.DBF (CODE C(20), NAME C(50))"
iRes = fpolectl1.FoxDoCmd(sCmd, "i")
If iRes = 0 Then
sCmd = "Insert Into c:\ls (code, name) values (" + Chr(34) + "code-1" + Chr(34) + ", " + Chr(34) + "name-1" + Chr(34) + ")"
iRes = fpolectl1.FoxDoCmd(sCmd, "i")
If iRes = 0 Then
sCmd = "copy to c:\xlsfile1 xl5"
iRes = fpolectl1.FoxDoCmd(sCmd, "i")
MsgBox iRes
End If
End If
End Sub
只是是否需要 VFP6R.DLL, VFP6CHS.DLL 等相关 DLL 注册,或甚至 VFP 运行环境就不得而知了,需要进一步验证。