以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何将一个TABLE的已选择的若干条记录导出为一个access文件以便向不同部门上报数据？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=55989)
--  作者：linshengqi
--  发布时间：2014/8/27 14:41:00
--  [求助]如何将一个TABLE的已选择的若干条记录导出为一个access文件以便向不同部门上报数据？
如题，求解。
--  作者：Bin
--  发布时间：2014/8/27 14:42:00
--  
用一个逻辑列来充当选择框

把导出条件设置为 "逻辑列=True"  即可
--  作者：Bin
--  发布时间：2014/8/27 14:42:00
--  
http://www.foxtable.com/help/topics/0683.htm
--  作者：linshengqi
--  发布时间：2014/8/27 14:43:00
--  
选择框已经沟选了，我想用编程代码在自编菜单中点击一下，自动生成ACCESS，代码该如何写？
--  作者：Bin
--  发布时间：2014/8/27 14:44:00
--  
看3楼.
--  作者：linshengqi
--  发布时间：2014/8/27 14:46:00
--  

If Forms.ActiveForm.Name<>"出仓_基础数据" Then
Forms("出仓_基础数据").open
Else
If Tables("出仓基础数据").GetCheckedRows.count>0 Then

Dim Book As New XLS.Book(ProjectPath & "Attachments\\大创出仓基础数据.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim Style As XLS.Style = Book.NewStyle() \'定义新样式
Style.AlignHorz=XLS.AlignHorzEnum.Center
Style.BorderTop = XLS.LineStyleEnum.Thin
Style.BorderBottom = XLS.LineStyleEnum.Thin
Style.BorderLeft = XLS.LineStyleEnum.Thin
Style.BorderRight = XLS.LineStyleEnum.Thin
Style.BorderColorTop = Color.black
Style.BorderColorBottom = Color.black
Style.BorderColorLeft = Color.black
Style.BorderColorRight = Color.black


Dim Style2 As XLS.Style = Book.NewStyle() \'定义新样式
Style2.BackColor=Color.red
Style2.AlignHorz=XLS.AlignHorzEnum.Center
Style2.BorderTop = XLS.LineStyleEnum.Thin
Style2.BorderBottom = XLS.LineStyleEnum.Thin
Style2.BorderLeft = XLS.LineStyleEnum.Thin
Style2.BorderRight = XLS.LineStyleEnum.Thin
Style2.BorderColorTop = Color.black
Style2.BorderColorBottom = Color.black
Style2.BorderColorLeft = Color.black
Style2.BorderColorRight = Color.black
Dim Style3 As XLS.Style = Book.NewStyle() \'定义新样式
Style3.BackColor=Color.yellow
Style3.AlignHorz=XLS.AlignHorzEnum.Center
Style3.BorderTop = XLS.LineStyleEnum.Thin
Style3.BorderBottom = XLS.LineStyleEnum.Thin
Style3.BorderLeft = XLS.LineStyleEnum.Thin
Style3.BorderRight = XLS.LineStyleEnum.Thin
Style3.BorderColorTop = Color.black
Style3.BorderColorBottom = Color.black
Style3.BorderColorLeft = Color.black
Style3.BorderColorRight = Color.black

 

 

Dim maxdate As Date
Dim mindate As Date
maxdate=Tables("出仓基础数据").current("出仓日期")
mindate=Tables("出仓基础数据").current("出仓日期")
Dim i As Integer
i=1
For Each r As Row In Tables("出仓基础数据").GetCheckedRows
If maxdate<r("出仓日期") Then
maxdate=r("出仓日期")
End If

If mindate>r("出仓日期") Then
mindate=r("出仓日期")
End If


Sheet(i,0).Value =i
Sheet(i,1).Value =cstr(r("出仓日期"))
Sheet(i,2).Value =r("发票号")
Sheet(i,3).Value =r("PO号")
i=i+1
Next

For r As Integer = 1 To i-1
    For c As Integer =0 To 7
        Sheet(r,c).Style = Style
sheet(r,4).style=style3
sheet(r,7).style=style3
sheet(r,5).style=style2
sheet(r,6).style=style2

   Next
Next

Sheet(i+2,0).Style = Style3
Sheet(i+2,1).value = "由派车人员填写"
Sheet(i+3,0).Style = Style2
Sheet(i+3,1).value = "由报关行填写"
Dim Fname As String
Dim sname As String
If mindate<>maxdate Then
Fname="大创出仓基础数据" & cstr(mindate) & "-" & cstr(maxdate) & ".xls"
sname= cstr(mindate) & "-" & cstr(maxdate) & "基础数据"
Else
Fname="大创出仓基础数据" & cstr(mindate) & ".xls"
sname= cstr(mindate) & "基础数据"
End If
Fname=Fname.Replace("/",".")
Sname=Sname.Replace("/",".")
  _savefile = ProjectPath & "Reports\\出仓\\填报数据\\" & Fname
        Book.Save(_savefile) \'保存工作簿
Forms("打印预览").open
Tables("出仓基础数据").ClearCheckedRows

Else
messagebox.show("请选择记录,否则无法生成报表!")
Forms("出仓_基础数据").open
End If
End If

 

 

以上是导出为EXCEL格式的，我已经弄好了，现在想按上面的思路导出为一个ACCESS,代码不知如何写，求教
--  作者：有点甜
--  发布时间：2014/8/27 14:49:00
--  

 1、你先把要导出的数据，生成到一个foxtable的表里面去；

 

 2、把表内容全部导出 http://www.foxtable.com/help/topics/0683.htm