主题：chuanhuo1表的yihuishoujin不能触发datachenged事件

1、测试没有问题，修改肯定会触发事件。

2、不万不得已不要写 SystemReady = False 这样的代码

正确代码

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