- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 代码错误在什么地方 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=86904)
-- 发布时间：2016/6/28 16:46:00
-- [求助] 代码错误在什么地方
If e.DataCol.Name = "改善分类"
Dim pr As DataRow
If e.NewValue Is Nothing Then
e.DataRow("提出激励考核_现金") = Nothing
Else
pr = DataTables("改善激励").Find("[改善分类] = " & e.NewValue)
此主题相关图片如下：22.png
If pr
此主题相关图片如下：111.png
IsNot Nothing Then
此主题相关图片如下：111.pngIsNot Nothing Then
e.DataRow("提出激励考核_现金") = pr("提出激励考核_现金")
If e.OldValue <> e.NewValue Then \'如果新旧产品编号不同.
DataTables("改善激励").DataCols("改善分类").RaiseDataColChanged(pr)
End If
End If
End If
If e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
pr = DataTables("改善激励").Find("[改善分类] = " & e.OldValue)
If pr IsNot Nothing Then
DataTables("改善激励").DataCols("改善分类").RaiseDataColChanged(pr)
End If
End If
End If
[此贴子已经被作者于2016/6/28 16:49:46编辑过]
-- 发布时间：2016/6/28 16:54:00
--
要加上引号
pr = DataTables("改善激励").Find("[改善分类] = \'" & e.NewValue & "\'")
-- 发布时间：2016/6/28 17:12:00
--
非常感谢！！！！！