有如下代码:
If e.DataCol.Name = "字段A" Then
If e.NewValue = "未购" Then
e.DataRow("购买日期") = Nothing
e.DataRow("金额") = 0
Else If e.NewValue = "已购"
Dim dr As DataRow
Dim rev As String = e.DataRow("REV编码")
dr = DataTables("项目").Find("[REV编码] =" & rev)
If dr IsNot Nothing Then
e.DataRow("金额") = dr("费用")
e.DataRow("购买日期") = Date.Today
End If
End If
End If
运行后 提示 :REV编码 找不到;
而 Dim rev As String = e.DataRow("REV编码") 获取到的字段值 是 REV202302 实际的值是 REV202302-002
这个是什么原因呢?如何改善?
请老师指教。