主题：订单表-价格列代码

DataColChanged事件

Select Case e.DataCol.Name
    Case "价格日期","价格方式"
        If e.DataRow.IsNull("价格日期") OrElse e.DataRow.isnull("价格方式") Then
            e.DataRow("单价") = Nothing
        Else
            If DataTables("价格表").DataCols.Contains(e.DataRow("价格方式")) Then
                Dim fdr As DataRow = DataTables("价格表").Find("价格日期 = '" & e.DataRow("价格日期") & "'")
                If fdr IsNot Nothing Then
                    e.DataRow("单价") = fdr(e.DataRow("价格方式"))
                End If
            End If
        End If
End Select