主题：窗口中的表问题

1、看看

http://www.foxtable.com/help/topics/1907.htm

2、看看

http://www.foxtable.com/help/topics/1356.htm

不是也有datacolchanged事件么？直接抄原来的代码，如

Dim dr  As  DataRow

dr = e.DataRow

Dim db  As  DataRow
db =  DataTables("价格表").Find("品名 = '" & dr("品名") & "'")
If db IsNot Nothing Then
    db("库存") = db("库存") - dr("数量")
End If

1、你试试不写代码，然后确认，库存是否减少；

2、肯定是执行了两次代码才会减少两倍的。

dataColChanged事件

If e.DataCol.Name = "品名" Then
    If e.NewValue Is Nothing Then
        e.DataRow("单价") = Nothing
    Else
        Dim dr  As  DataRow
        dr =  DataTables("价格表").Find("品名 = '" & e.DataRow("品名") & "'")
        If dr IsNot Nothing Then
            e.DataRow("单价") = dr("价格")
        End If
    End If
End If

Select Case e.DataCol.Name
    Case "数量"
        If  e.DataRow("数量") = 12 Then
            e.DataRow("总价") = e.DataRow("单价") * e.DataRow("数量") - e.DataRow("单价")
        Else
            e.DataRow("总价") = e.DataRow("单价") * e.DataRow("数量")
        End If
        Dim db As  DataRow =  DataTables("价格表").Find("品名 = '" & e.DataRow("品名") & "'")
        If db IsNot Nothing Then
            db("库存") = db("库存") - e.DataRow("数量")
        End If
End Select