以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  SQLJoinTableBuilder  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=195659)
--  作者：1234567
--  发布时间：2025/2/26 9:02:00
--  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()

 

当我把工步表的内容清空后，重新生成的查询表，在生成的零件加工工艺单查询表中，还是有工步表的内容，这是为什么？
--  作者：有点蓝
--  发布时间：2025/2/26 9:20:00
--  
工步表的内容清空后，保存了没有？SQLJoinTableBuilder取的后台数据，没保存，后台数据不会变
--  作者：1234567
--  发布时间：2025/2/26 9:25:00
--  

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

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()
--  作者：有点蓝
--  发布时间：2025/2/26 9:35:00
--  
我测试没有这种情况。请上传实例说明
--  作者：1234567
--  发布时间：2025/2/26 10:04:00
--  
文件太大，无法上传，尝试做实例，测试无异常，不知问题出在哪里？
--  作者：1234567
--  发布时间：2025/2/26 10:06:00
--  
好像后台数据没被清除
--  作者：有点蓝
--  发布时间：2025/2/26 10:24:00
--  
怎么把【工步表】清空的？
[此贴子已经被作者于2025/2/26 10:24:10编辑过]
--  作者：1234567
--  发布时间：2025/2/26 10:28:00
--  
For i As Integer = 0 To Tables("编制工艺文件_Table05").Rows.count - 1 \'更新四级表
    Tables("编制工艺文件_Table05").Rows.Delete(0)
Next
Tables("编制工艺文件_Table05").Sort = ""\'取消排序
--  作者：有点蓝
--  发布时间：2025/2/26 10:32:00
--  
编制工艺文件_Table05是副本？还是sqltable、sqlquery？
--  作者：1234567
--  发布时间：2025/2/26 10:34:00
--  

类型Normal 作为副本

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

[此贴子已经被作者于2025/2/26 10:36:33编辑过]