主题：触发表达式的事件

你连最基础的语法都不会啊，去把帮助文档看一遍。

If e.DataCol.name ="yihuishoujin" Then
    Dim  pr As  DataRow = e.DataRow.GetParentRow("chuanhuo2")  '找出对应的父行
    If  pr IsNot Nothing Then
        DataTables("chuanhuo2").DataCols("tuijin").RaiseDataColChanged(pr)   '通知系统此父行的数量列发生了改变,触发DataColChanged事件
       
        e.DataRow("huitime") =Date.now()
        e.DataRow("zhiyuan2") =user.name
        e.DataRow("cc")=e.DataRow("yihuishoujin") / e.DataRow("price")
    End If
Else If e.DataCol.name ="yihuishounum"
    Dim  pr1 As  DataRow = e.DataRow.GetParentRow("chuanhuo2")  '找出对应的父行
    If  pr1 IsNot Nothing Then
        DataTables("chuanhuo2").DataCols("tuinum").RaiseDataColChanged(pr1)   '通知系统此父行的数量列发生了改变,触发DataColChanged事件
       
        e.DataRow("huitime") =Date.now()
        e.DataRow("zhiyuan2") =user.name
    End If
End If

要不你就不要用重置列的方式。直接取父表的值，计算更好啊。

 

Dim  pr1 As  DataRow = e.DataRow.GetParentRow("chuanhuo2")  '找出对应的父行

pr1("某列") = pr1("某列") + pr1("某列")