卸载临时表自动关闭窗口 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

漂亮美眉vszh

If DataTables.Contains("APQP进度人员统计") = True Then

DataTables.Unload("APQP进度人员统计")

End If

If Tables("APQP跟踪事项").Rows.count > 0 Then

Dim dtb As New DataTableBuilder("APQP进度人员统计")

dtb.AddDef("姓名", Gettype(String), 32)

dtb.AddDef("全部", Gettype(Integer))

dtb.AddDef("已完成", Gettype(Integer))

dtb.AddDef("未完成", Gettype(Integer))

dtb.Build()

MessageBox.Show(100)

For Each v As String In DataTables("APQP跟踪事项").GetValues("责任人姓名1")

If v <> "" Then

Dim dr1 As DataRow = DataTables("APQP进度人员统计").AddNew()

dr1("姓名") = v

dr1("全部") = DataTables("APQP跟踪事项").Compute("Count([责任人编号1])", "责任人姓名1 = '" & v & "'")

dr1("已完成") = DataTables("APQP跟踪事项").Compute("Count([责任人编号1])", "责任人姓名1 = '" & v & "' and 完成情况 = '已完成'")

dr1("未完成") = DataTables("APQP跟踪事项").Compute("Count([责任人编号1])", "责任人姓名1 = '" & v & "' and 完成情况 = '未完成'")

'For Each dr2 As DataRow In DataTables("APQP跟踪事项").DataRows

'If dr2("姓名") = v Then

'dr1(dr2("课程")) = dr2("分数")

'End If

'Next

End If

MessageBox.Show(200)

end if

如果我手动把这个临时表删除，运行正常；如果重新生成，就会自动关闭窗口

漂亮美眉vszh

100 和 200 正常弹出，弹出完成后窗口就自动关闭

你窗口里有table控件绑定了此统计表？

以下是引用漂亮美眉vszh在2017/12/29 10:54:00的发言：
100 和 200 正常弹出，弹出完成后窗口就自动关闭

做个例子发上来测试一下。

漂亮美眉vszh

没有，你之前说不能绑定，所以我就没绑过

漂亮美眉vszh

我关闭了狐表，重新启动，就好了；但过一段时间又会这样，没找到原因

以下是引用漂亮美眉vszh在2017/12/29 11:06:00的发言：
没有，你之前说不能绑定，所以我就没绑过

做个差不多的例子发上来测试。

漂亮美眉vszh

前几天有跟老师讲重启项目后就好了，可是今天发现又不行了，每次运行窗口就自动关闭，现上传例子，麻烦老师看下

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.rar

漂亮美眉vszh

窗口1-"刷新图表"

以下是引用漂亮美眉vszh在2018/1/2 13:50:00的发言：
窗口1-"刷新图表"

在设计窗口->预览的时候，才有问题吧？

你把maintable切换成表B即可，原因：你在表A设计窗口的时候，你窗口又引用了绑定了表A（不是副本表），这样就会导致不正常。

点击表B后，再点击【窗口管理】；或者，直接运行窗口，而不是预览。

主题：卸载临时表自动关闭窗口