日期列问题，你改成这样，我测试过了
If e.DataCol.Name = "出库" Then
Dim pr As DataRow
pr = DataTables("库存运维").Find("配件名称 = '" & e.DataRow("配件名称") & "'")
If pr IsNot Nothing Then
pr("出库总量")= pr("出库总量") + e.NewValue - e.OldValue
End If
ElseIf e.DataCol.Name="配件名称"
If e.NewValue<>e.OldValue
DataTables("库存运维").DataCols("配件名称").RaiseDataColChanged()
End If
ElseIf e.DataCol.Name= "日期"
Dim y,m,d As Integer
DateYMD(e.NewValue,e.OldValue,y,m,d)
If d = 0 And y = 0 And m = 0 Then
Else
DataTables("库存运维").DataCols("配件名称").RaiseDataColChanged()
End If
End If
[此贴子已经被作者于2013-4-17 15:30:11编辑过]
加好友 
发短信
Post By：2013/4/17 15:27:00 [显示全部帖子]
