- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]CurrentChanged代码后使新增行出现问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=131170)
-- 发布时间：2019/2/19 12:43:00
-- [求助]CurrentChanged代码后使新增行出现问题
老师，我再表currentchanged事件中写入代码：
If e.Table.Current IsNot Nothing Then
DataTables("tblDiagnoTher").LoadFilter = "HIS号 =\'" & e.Table.Current("HIS号") & "\'"
Else
DataTables("tblDiagnoTher").LoadFilter = "[_Identify] Is null"
End If
DataTables("tblDiagnoTher").Load()
结果弹出下图：
请问如何解决？
此主题相关图片如下：2019-02-19_12-30-16.jpg
[此贴子已经被作者于2019/2/19 12:49:37编辑过]
-- 发布时间：2019/2/19 13:47:00
--
试试
Dim r As Row = e.Table.Current
If r IsNot Nothing Then
DataTables("tblDiagnoTher").LoadFilter = "HIS号 =\'" & r("HIS号") & "\'"
Else
DataTables("tblDiagnoTher").LoadFilter = "[_Identify] Is null"
End If
DataTables("tblDiagnoTher").Load()
另外看看表名和列名有没有错
另外看看加载tblDiagnoTher表后是不是触发了其他事件，这些事件有问题