主题：垂直表转换问题

这个意思？

Dim dtb As New DataTableBuilder("表AA")
dtb.AddDef("日期", Gettype(String),100)
dtb.AddDef("星期", Gettype(String),100)
dtb.AddDef("工作类别", Gettype(String),500)
dtb.AddDef("工作内容", Gettype(String),500)
dtb.AddDef("任务接受时间", Gettype(String),100)
dtb.AddDef("计划完成时间", Gettype(String),100)
dtb.AddDef("实际完成时间", Gettype(String),100)
dtb.AddDef("质量自评(0-10)", Gettype(String),100)
dtb.AddDef("效率自评(0-10)", Gettype(String),100)
dtb.AddDef("备注", Gettype(String),500)
dtb.AddDef("员工编号", Gettype(String),100)
dtb.AddDef("员工姓名", Gettype(String),100)
dtb.AddDef("索引号", Gettype(String),100)
'dtb.AddDef("分数", Gettype(Double))
dtb.Build()
Dim kms() As String = {"图纸设计明细","方案和说明书","概算/预算/结算","技术协议签订","投标文件制作","设计技术交底","设计资料存档","电子资料存档","出差天数","加班天数","杂项工作"}
For Each dr1 As Row In Tables("工作日志主表.工作日志副表1").Rows
    For Each km As String In kms
        Dim dr2 As DataRow = DataTables("表AA").AddNew()
        dr2("日期") = dr1("日期")
        dr2("星期") = dr1("星期")
        dr2("任务接受时间") = dr1("任务接受时间")
        dr2("计划完成时间") = dr1("计划完成时间")
        dr2("实际完成时间") = dr1("实际完成时间")
        dr2("质量自评(0-10)") = dr1("质量自评(0-10)")
        dr2("效率自评(0-10)") = dr1("效率自评(0-10)")
        dr2("备注") = dr1("备注")
        dr2("员工编号") = dr1("员工编号")
        dr2("员工姓名") = dr1("员工姓名")
        dr2("索引号") = dr1("索引号")
        dr2("工作类别") = km
        dr2("工作内容") = dr1(km)
    Next
Next
MainTable = Tables("表AA")

把首尾的代码去掉

'SystemReady = False
For Each  d As DataRow In DataTables("表AA").DataRows
    Dim dr As DataRow = DataTables("工作日志副表2").AddNew
    dr("日期")=d("日期")
    dr("星期")=d("星期")
    dr("工作类别")=d("工作类别")
    dr("工作内容")=d("工作内容")
    dr("任务接受时间")=d("任务接受时间")
    dr("计划完成时间")=d("计划完成时间")
    dr("实际完成时间")=d("实际完成时间")
    dr("质量自评(0-10)")=d("质量自评(0-10)")
    dr("效率自评(0-10)")=d("效率自评(0-10)")
    dr("备注")=d("备注")
    dr("员工编号")=d("员工编号")
    dr("员工姓名")=d("员工姓名")
    dr("索引号")=d("索引号")
Next
'DataTables("工作日志副表2").Save
DataTables("表AA").DeleteFor("")
'SystemReady = True

或者是这样

SystemReady = False
    dr("星期")=d("星期")
    dr("工作类别")=d("工作类别")
    dr("工作内容")=d("工作内容")
    dr("任务接受时间")=d("任务接受时间")
    dr("计划完成时间")=d("计划完成时间")
    dr("实际完成时间")=d("实际完成时间")
    dr("质量自评(0-10)")=d("质量自评(0-10)")
    dr("效率自评(0-10)")=d("效率自评(0-10)")
    dr("备注")=d("备注")
    dr("员工编号")=d("员工编号")
    dr("员工姓名")=d("员工姓名")
    dr("索引号")=d("索引号")
Next
'DataTables("工作日志副表2").Save
DataTables("表AA").DeleteFor("")
SystemReady = True

不同同步数据是正常的，因为不触发datacolchanged事件了。

看看 http://www.foxtable.com/help/topics/2218.htm