以文本方式查看主题

-  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)

--  作者:chh2321
--  发布时间: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表后是不是触发了其他事件,这些事件有问题