执行窗口命令后不能保存？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

生成以后，你把表格保存成excel文件，然后删除这个表，然后导入excel文件，然后把下面的代码删除

Dim cs() As String ={"语文_高一","语文_高二","数学_高一","数学_高二","英语_高一","英语_高二","物理_高一","物理_高二","化学_高一","化学_高二","政治_高一","政治_高二","历史_高一","历史_高二","地理_高一","地理_高二","技术_高一","技术_高二","生物_高二","总分"}
Dim t As Table = Tables("成绩总表")
For Each c As String In cs
    If t.DataTable.DataCols.Contains(c & "_班名")=False Then
        t.DataTable.DataCols.Add(c & "_班名", Gettype(Integer))
        t.cols(c & "_班名").Move(t.cols(c).Index+1)
    End If
    If t.DataTable.DataCols.Contains(c & "_校名")=False Then
        t.DataTable.DataCols.Add(c & "_校名", Gettype(String))
        t.cols(c & "_校名").Move(t.cols(c).Index+2)
    End If
    If t.DataTable.DataCols.Contains(c & "_等级")=False Then
        t.DataTable.DataCols.Add(c & "_等级", Gettype(String))
        t.cols(c & "_等级").Move(t.cols(c).Index+3)
    End If
    t.cols(c).Caption = c & "_分数"
Next

你用seveExcel的方式导出成excel文件就可以了

http://www.foxtable.com/help/topics/0559.htm

excel文件发上来看看。

直接用高速导入的菜单，能否导入表格？

上传例子具体foxtable实例。

代码这样写

Dim cs() As String ={"语文_高一","语文_高二","数学_高一","数学_高二","英语_高一","英语_高二","物理_高一","物理_高二","化学_高一","化学_高二","政治_高一","政治_高二","历史_高一","历史_高二","地理_高一","地理_高二","技术_高一","技术_高二","生物_高二","总分"}
Dim t As Table = Tables("成绩总表")
Dim Builder As New ADOXBuilder
Builder.Open()
Dim tbl = builder.Tables("成绩总表")
For Each c As String In cs
    If t.DataTable.DataCols.Contains(c & "_班名")=False Then
        tbl.AddColumn(c & "_班名", ADOXType.Integer) '增加整数型列

    End If
    If t.DataTable.DataCols.Contains(c & "_校名")=False Then
        tbl.AddColumn(c & "_校名", ADOXType.Integer) '增加整数型列
    End If
    If t.DataTable.DataCols.Contains(c & "_等级")=False Then
        tbl.AddColumn(c & "_等级", ADOXType.Integer) '增加整数型列
    End If
    If t.DataTable.DataCols.Contains(c & "_分数")=False Then
        tbl.RenameColumn(c, c & "_分数")
    End If
Next
Builder.Close()
DataTables.unload("成绩总表")
DataTables.load("成绩总表")
t = Tables("成绩总表")
Dim idx As Integer = 3
For Each c As String In cs
    t.cols(c & "_分数").Move(idx)
    t.cols(c & "_分数").width = 40
    t.cols(c & "_班名").Move(idx+1)
    t.cols(c & "_校名").Move(idx+2)
    t.cols(c & "_等级").Move(idx+3)
    idx += 4
Next

1、本来就不支持；

2、成绩总表，当然是查询表比较好。

就你的例子，我测试没问题

参考代码

Dim Cols1() As String = {"来源列一","来源列二","来源列三"}
Dim Cols2() As String = {"接收列一","接收列二","接收列三"}
For Each dr1 As DataRow In DataTables("表A").Select("")
    Dim dr2 As DataRow = DataTables("表B").find("姓名 = '" & dr1("姓名") & "'")
    If dr2 Is Nothing Then
        dr2 = DataTables("表B").AddNew()
    End If
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
Next

Dim drss As List(of DataRow)=DataTables("成绩总表竖表").Select("[科目]= " & km, km & " DESC ")

改成

Dim drss As List(of DataRow)=DataTables("成绩总表竖表").Select("[科目]= '" & km & "'", km & " DESC ")

-------------如果还报错，做个实例发上来看看

主题：执行窗口命令后不能保存？