- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]报错是那问题？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=179518)
-- 发布时间：2022/8/27 16:35:00
-- [求助]报错是那问题？
If Forms("采购记录").opened()
Dim t As Table = Tables("采购记录_采购明细预览")
If Tables("采购").Current Is Nothing Then
t.Filter = "False"
Else
Dim Filter As String = "[采购单号] = \'" & e.Table.Current("采购单号") & "\'"
If DataTables("采购明细").Find(Filter) IsNot Nothing Then \'如果对应的订单明细有加载过
LockBaseMainForm() \'锁定主窗口
DataTables("采购明细").RemoveFor(Filter)
DataTables("采购明细").AppendLoad(Filter) \'则追载此订单的订单明细
UnLockBaseMainForm() \'解锁主窗口
Else
LockBaseMainForm() \'锁定主窗口
DataTables("采购明细").AppendLoad(Filter) \'则追载此订单的订单明细
UnLockBaseMainForm() \'解锁主窗口
End If
t.Filter = "[采购单号] = \'" & Tables("采购").Current("采购单号") & "\'"
End If
End If
此主题相关图片如下：报错2.jpg
-- 发布时间：2022/8/27 16:58:00
--
If Forms("采购记录").opened()
Dim t As Table = Tables("采购记录_采购明细预览")
If Tables("采购").Current Is Nothing Then
t.Filter = "False"
Else
Dim Filter As String = "[采购单号] = \'" & e.Table.Current("采购单号") & "\'"
LockBaseMainForm() \'锁定主窗口
DataTables("采购明细").RemoveFor(Filter)
DataTables("采购明细").AppendLoad(Filter) \'则追载此订单的订单明细
UnLockBaseMainForm() \'解锁主窗口
t.Filter = Filter
End If
End If
-- 发布时间：2022/8/27 17:39:00
--
此主题相关图片如下：代码.jpg
此主题相关图片如下：报错4.jpg
你好老师，报错后明细行就不见了！
此主题相关图片如下：报错3.jpg
-- 发布时间：2022/8/27 17:43:00
--
代码在什么表的什么事件里？
-- 发布时间：2022/8/27 17:46:00
--
CurrentChanged
奇怪！这代码我在其它表没问题的
-- 发布时间：2022/8/27 17:49:00
--
同样是在申购表及采购表上，关联对应申购明细及采购明细，申购主表同样代码不会报错的
-- 发布时间：2022/8/28 20:07:00
--
在什么表的CurrentChanged事件？