主题：查询表中没有_Identify，

改成

If e.Table.name <> "dbscmx"

drawcell事件代码改成这样测试，其余代码删除

If e.Table.name <> "dbscmx" Then

    output.show(e.table.name)
    Dim dr As DataRow = DataTables("背景批注").Find("表名 = '" & e.Table.Name  & "' and 行号 = '" & e.Row("_Identify") & "'")

End If

打开【命令窗口】，看红色代码得到的结果是什么

If e.Table.name <> "dbscmx" Then

    output.show(e.table.name)
    Dim dr As DataRow = DataTables("背景批注").Find("表名 = '" & e.Table.Name  & "' and 行号 = '" & e.Row("_Identify") & "'")

End If

drawcell事件其余全部代码删除，只留6楼代码。

1、先打开【命令窗口】

2、去修改你drawcell事件代码，点击确定。

报错以后，命令窗口会有table的name的值。

不是在命令窗口执行代码，认认真真看

1、先打开【命令窗口】

2、去修改你全局表drawcell事件代码，点击确定。

报错以后，命令窗口会有table的name的值。

在你菜单 项目属性->全局表事件 那里，修改代码后，点击确定。

命令窗口不要关闭，然后操作，直到出错，命令窗口有表名显示。

那这样判断是否存在_Identify列

If DataTables("表A").basetable.columns.Contains("_Identify") then
    msgbox("存在")
Else
    msgbox("不存在")
End If

1、drawcell事件代码全部删除后测试；

2、判断是否存在_Identify列，参考18楼代码，自己改写成drawcell的代码。