- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 卸载临时表自动关闭窗口 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=111792)
-- 发布时间：2017/12/29 10:53:00
-- 卸载临时表自动关闭窗口
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
Next
MessageBox.Show(200)
end if
如果我手动把这个临时表删除，运行正常；如果重新生成，就会自动关闭窗口
-- 发布时间：2017/12/29 10:54:00
--
100 和 200 正常弹出，弹出完成后窗口就自动关闭
-- 发布时间：2017/12/29 11:02:00
--
你窗口里有table控件绑定了此统计表？
-- 发布时间：2017/12/29 11:05:00
--
以下是引用漂亮美眉vszh在2017/12/29 10:54:00的发言：
100 和 200 正常弹出，弹出完成后窗口就自动关闭
100 和 200 正常弹出，弹出完成后窗口就自动关闭
做个例子发上来测试一下。
-- 发布时间：2017/12/29 11:06:00
--
没有，你之前说不能绑定，所以 我就没绑过
-- 发布时间：2017/12/29 11:39:00
--
我关闭了狐表，重新启动，就好了； 但过一段时间又会这样，没找到原因
-- 发布时间：2017/12/29 12:11:00
--
以下是引用漂亮美眉vszh在2017/12/29 11:06:00的发言：
没有，你之前说不能绑定，所以 我就没绑过
没有，你之前说不能绑定，所以 我就没绑过
做个差不多的例子发上来测试。
-- 发布时间：2018/1/2 13:50:00
--
前几天有跟老师讲重启项目后就好了，可是今天发现又不行了，每次运行窗口就自动关闭，现上传例子，麻烦老师看下
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
-- 发布时间：2018/1/2 13:50:00
--
窗口1-"刷新图表"
-- 发布时间：2018/1/2 14:26:00
--
以下是引用漂亮美眉vszh在2018/1/2 13:50:00的发言：
窗口1-"刷新图表"
窗口1-"刷新图表"
在设计窗口->预览的时候，才有问题吧？
你把maintable切换成表B即可，原因：你在表A设计窗口的时候，你窗口又引用了绑定了表A（不是副本表），这样就会导致不正常。
点击表B后，再点击【窗口管理】；或者，直接运行窗口，而不是预览。