如何拆分列

boy1

谢版主，指教。[:32]

boy1

小问题：请教

Henry D. Sy

要导入的表（就是b表)中的序号不要设置为主键。

boy1

寻求版主指教，上传一个要导入的EXECEL文件。[:30]

我的导入方法：1。导入a表，在复制a表改名为b。（b没设主键）


                         2.a，b分别导入（b没设主键）

请教版主为什么，换个看起来没什么差别的表（只是多填了几列）却出错呢？出错了解决思路是什么？

Henry D. Sy

什么意思呀，看不太懂。

boy1

上传的EXECEL表，是要替换原来的a表的。我把新表导入程序后，程序提示出错。版主帮给看看是什么问题

倒数第二列数据也核对了，没发现出错。


新表在上帖

[ 本帖最后由 boy1 于 2008-12-18 22:16 编辑 ]

Henry D. Sy

导入时，不要设什么id主键，access会询问你的，不要管他。
导入后，a表最后存在着很多空记录，请把他们删除掉。

boy1

解决了，谢谢版主。版主辛苦了[:22]

boy1

Private Sub Command13_Click()
    Dim strSQL As String
    Dim qdf As DAO.QueryDef
    Set qdf = CurrentDb.QueryDefs("qdfA")
    If strWhere = "" Then
        strSQL = "select * from b"
    Else
        strSQL = "select * from b where " & strWhere
    End If
    qdf.SQL = strSQL
    DoCmd.OutputTo acOutputQuery, "qdfa", acFormatXLS, CurrentProject.Path & "\qdfa.xls", True
End Sub
只输出表（b）里的指定列如：分行，案名，业主姓名，业主电话等项到 qdfa.xls，如何改代码？麻烦版主给改写一下，谢谢。

Henry D. Sy

strSQL = "select * from b"
strSQL = "select * from b where " & strWhere
将上面这两句中的“*”号，换成你要输入的字段名
比如
strSQL = "select 分行,案名,业主姓名,业主电话 from b"