主题：SQLJoinTableBuilder

Dim jb As New SQLJoinTableBuilder("零件加工工艺单", "任务单")
jb.C
jb.AddTable("任务单", "任务单编号", "项目阶段", "任务单编号", JoinModeEnum.left)
jb.AddTable("项目阶段", "项目段号", "零件加工", "项目段号", JoinModeEnum.left)
jb.AddTable("零件加工", "工艺单编号", "工艺内容", "工艺单编号", JoinModeEnum.left)
Dim Cols1() As String = {"工艺单编号", "工序号"}
Dim Cols2() As String = {"工艺单编号", "工序号"}
jb.AddTable("工艺内容", Cols1, "工步", Cols2, JoinModeEnum.left)
jb.AddCols( "{任务单}.任务单编号", "{任务单}.工装模具编号", "{零件加工}.工艺单编号", "{工艺内容}.工序号", "{工艺内容}.工序", "工步号", "工步内容")
If Tables("生产管理_Table03").Current IsNot Nothing Then
    jb.Filter = "{零件加工}.[工艺单编号] = '" & Tables("生产管理_Table03").Current("工艺单编号") & "'"
End If
jb.Build()

 

当我把工步表的内容清空后，重新生成的查询表，在生成的零件加工工艺单查询表中，还是有工步表的内容，这是为什么？

工步表的内容清空后，保存了没有？SQLJoinTableBuilder取的后台数据，没保存，后台数据不会变

保存过了，实际的代码是：

For Each dt As DataTable In DataTables
    dt.Save()
Next
Dim jb As New SQLJoinTableBuilder("零件加工工艺单", "任务单")
jb.C
jb.AddTable("任务单", "任务单编号", "项目阶段", "任务单编号", JoinModeEnum.left)
jb.AddTable("项目阶段", "项目段号", "零件加工", "项目段号", JoinModeEnum.left)
jb.AddTable("零件加工", "工艺单编号", "工艺内容", "工艺单编号", JoinModeEnum.left)
Dim Cols1() As String = {"工艺单编号", "工序号"}
Dim Cols2() As String = {"工艺单编号", "工序号"}
jb.AddTable("工艺内容", Cols1, "工步", Cols2, JoinModeEnum.left)
jb.AddCols( "{任务单}.任务单编号", "{任务单}.工装模具编号", "{零件加工}.工艺单编号", "{工艺内容}.工序号", "{工艺内容}.工序", "工步号", "工步内容")
If Tables("生产管理_Table03").Current IsNot Nothing Then
    jb.Filter = "{零件加工}.[工艺单编号] = '" & Tables("生产管理_Table03").Current("工艺单编号") & "'"
End If
jb.Build()

我测试没有这种情况。请上传实例说明

文件太大，无法上传，尝试做实例，测试无异常，不知问题出在哪里？

好像后台数据没被清除

怎么把【工步表】清空的？

For i As Integer = 0 To Tables("编制工艺文件_Table05").Rows.count - 1 '更新四级表
    Tables("编制工艺文件_Table05").Rows.Delete(0)
Next
Tables("编制工艺文件_Table05").Sort = ""'取消排序

编制工艺文件_Table05是副本？还是sqltable、sqlquery？

类型Normal 作为副本

清空后，工步表主表中已查不到原来的数据