主题：求平均值

狐表老师早上好。

                 根据名称求卖出和买入平均价。谢谢

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:平均值.table

.

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:平均值 (1).table

老师谢谢。

老师，怎样彻底锁定已编辑好表的逻辑列，下面是针对 逻辑列的代码，

 

 

If e.DataRow.isnull(e.DataCol.name)=False Then
    If e.DataCol.name.StartsWith("买入") Then
        e.DataRow("操作")=True
    Else If e.DataCol.name.StartsWith("卖出") Then
        e.DataRow("操作")=False
    End If
End If

什么意思? 没看懂

 当编辑好行后彻底锁定“操作”的逻辑列不让他变来变去

此主题相关图片如下：image 7.png

prepareEdit事件

 

If e.Col.Name = "操作" Then
    If e.Row.IsNull("买入") = False OrElse e.Row.IsNull("卖出") = False Then
        e.cancel = True
    End If
End If

或者datacolchanged事件

 

If e.DataRow.isnull(e.DataCol.name)=False Then
    If e.DataCol.name.StartsWith("买入") Then
        e.DataRow("操作")=True
    Else If e.DataCol.name.StartsWith("卖出") Then
        e.DataRow("操作")=False
    End If

    e.DataRow.Locked = True
End If

 

狐表老师，在执行锁定该行时给他一个条件有几个单元格中必须有数据后才能锁定。

If e.DataRow.isnull(e.DataCol.name)=False Then
    If e.DataCol.name.StartsWith("买入") Then
        e.DataRow("操作")=True
    Else If e.DataCol.name.StartsWith("卖出") Then
        e.DataRow("操作")=False
    End If

    e.DataRow.Locked = True
End If

If e.DataRow.isnull(e.DataCol.name)=False Then
    If e.DataCol.name.StartsWith("买入") Then
        e.DataRow("操作")=True
    Else If e.DataCol.name.StartsWith("卖出") Then
        e.DataRow("操作")=False
    End If

    If (e.DataRow.IsNull("买入")=False AndAlso e.DataRow.IsNull("买入量")=False) OrElse (e.DataRow.IsNull("卖出")=False AndAlso e.DataRow.IsNull("卖出量")=False)

        e.DataRow.Locked = True

    End If
End If