主题：说是不存在列_identify

_identify，是系统列，怎么提示说不存在？
此主题相关图片如下：未命名.bmp

用例子说话。

e.Form.controls("空").performclick()
If str<>Nothing
    MessageBox.Show(str & "为空,不能增加!")
    Return
End If
Dim ny As String=vars("记账日期").year & cstr(vars("记账日期").month).padleft(2,"0")

sjkdt.save()
sjkdt.loadfilter="[_identify] is null"
sjkdt.load()
'求最大编号
cmd.connectionname=source
cmd.CommandText = "Select Max(序号) From {" & sjkzbdt.name & "} Where " & _filter & " and 单据类型='" & vars("单据类型") & "' and 记账年月='" & ny & "'"
max = cmd.ExecuteScalar()
MessageBox.Show(sjkzbt.name)
_r=sjkzbt.addnew()
MessageBox.Show(2)
sjkzbdt.save()
sjkzbt.Position = sjkzbt.Rows.Count - 1
If max > "" Then '如果存在最大编号
    _r("序号") = CInt(max) + 1 '获得最大编号的后三位顺序号,并加1
Else
    _r("序号") = 00001 '否则顺序号等于1
End If
_r("单据编号") = vars("单据类型") & ny & "-" & Format(cint(_r("序号")),"00000")
_r=wft.addnew()
_r("单据编号") = sjkzbt.current("单据编号")
sjkzbt.current.save()
_r.save()
'加载数据
sjkdt.loadfilter="" & _filter & " and 单据编号='" & _r("单据编号") & "'"
sjkdt.load()

贴出代码。

_r=sjkzbt.addnew()
执行这个代码后，出现问题。

奇迹，代码贴到论坛上后，立即没有提示了。

 呃...

我未做任何调整，现在没有这个提示了。

不管怎么说，_identify列是一定存在的，现在提示不存在，很奇怪的。