共3 条记录, 每页显示 10 条, 页签: [1]

标题：[求助] _Identidy 代码里没法引用如何解决这一问题？

1楼

gaoyong30000 发表于：2011/9/12 11:34:00

想在另一列引用 _Identidy 里的编码

或者在代码里进行引用？

帮助里好像没相关的介绍，代码如下（错误的，但是我想实现的目的）

Beforecloseproject 销售意向客户进度管制表里的编号列是表达式_Identidy

Dim r As Row = Tables("销售意向客户进度管制").Current
Dim dr As DataRow = DataTables("意向客户历史回访情况").Find("编号 = '" & r("编号1") & "' And 最后一次回访情况 = " & r("最后一次回访情况") & " And 最后联系日期 = #" & r("最后联系日期") & "# And 备注 = " & r("备注") & "")
If dr IsNot Nothing Then
    messagebox.show("与历史记录重复","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
Else
    dr = DataTables("意向客户历史回访情况").AddNew()
    dr("编号") = r("编号1")
    dr("最后一次回访情况") = r("最后一次回访情况")
    dr("最后联系日期") = r("最后联系日期")
    dr("备注") = r("备注")
    dr.Save()
End If

错误如下

此主题相关图片如下：1.jpg

[此贴子已经被作者于2011-9-12 11:42:50编辑过]

2楼

wlxzl 发表于：2011/9/12 14:36:00

我也想知道这是怎么回事，但在帮助中没有介绍在程序中如何引用_Identidy 字段的说明，期待高手解答。

3楼

狐狸爸爸 发表于：2011/9/12 16:39:00

_Identify和其他列一样引用：

r("_Identify")

错误是因为你合成的表达式有问题，应该是：

("编号 =" & r("_Identify") & " And 最后一次回访情况 = '" & r("最后一次回访情况") & "' And 最后联系日期 = #" & r("最后联系日期") & "# And 备注 = '" & r("备注") & "'")

字符用单引号，数值不用，你恰好搞反了，建议看看：

http://www.foxtable.com/help/topics/1284.htm

共3 条记录, 每页显示 10 条, 页签: [1]

标题：[求助] _Identidy 代码里没法引用 如何解决这一问题？

标题：[求助] _Identidy 代码里没法引用如何解决这一问题？