- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 帮我看一下为什么子表设置父表日期会错误 但父表不会？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=16533)
-- 发布时间：2012/2/16 17:44:00
-- 帮我看一下为什么子表设置父表日期会错误 但父表不会？
跟踪表下
If e.DataRow("设定下次日期")=True Then
Dim rnew As DataRow = DataTables("跟踪").AddNew
rnew("日期")=e.DataRow("下次日期")
rnew("标题")=e.DataRow("标题")
rnew("备注")=e.DataRow("备注")
rnew("联系方式")=e.DataRow("联系方式")
rnew("联系人")=e.DataRow("联系人")
End If
Dim dr As DataRow = e.DataRow.GetParentRow("跟踪") \'获得此产品所有订单
If dr("最近联系")>e.DataRow("日期") Then
dr("最近联系")=e.DataRow("日期")
End If
客户表下
Dim drs As List(of DataRow) = e.DataRow.GetChildRows("跟踪") \'获得此产品所有订单
For Each dr As DataRow In drs
If dr("日期")>e.DataRow("最近联系") Then
e.DataRow("最近联系")=dr("日期")
End If
Next
-- 发布时间：2012/2/16 17:47:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:crm.rar |
-- 发布时间：2012/2/16 17:51:00
--
此主题相关图片如下：未命名.gif
-- 发布时间：2012/2/16 17:52:00
--
错误提示也不说，也不告诉怎样操作出错，只能蒙一下：
Dim dr As DataRow = e.DataRow.GetParentRow("跟踪")
If dr("最近联系")>e.DataRow("日期") Then
dr("最近联系")=e.DataRow("日期")
End If
改为：
Dim dr As DataRow = e.DataRow.GetParentRow("跟踪")
If dr IsNot Nothing Then
If dr("最近联系")>e.DataRow("日期") Then
dr("最近联系")=e.DataRow("日期")
End If
End if
[此贴子已经被作者于2012-2-16 17:52:45编辑过]
-- 发布时间：2012/2/17 8:57:00
-- 确定错误在这一句。提示已经发图
Dim dr As DataRow = e.DataRow.GetParentRow("跟踪")