主题：[求助]CurrentChanged

CurrentChanged

 

Dim r As DataRow = DataTables("利润单").Find("业务负责 ='" & e.Table.Current("业务负责") & "'") 

If e.Table.Current IsNot Nothing Then
    If Forms("营业报账").Opened Then
        If user.Name = r("业务负责") Then
            Forms("营业报账").Controls("删除当前行按键").Enabled = True
        Else
            Forms("营业报账").Controls("删除当前行按键").Enabled = False
        End If
    End If
End If

 

这句好像不对

Dim r As DataRow = DataTables("利润单").Find("业务负责 ='" & e.Table.Current("业务负责") & "'") 

应该怎么写啊？

谢谢

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

点击浏览该文件:管理项目1.foxdb

 

 

 

 

上完了，不知道对不对，麻烦给看下

目前是这么写的：

 

If e.Table.Current IsNot Nothing Then
    If Forms("营业报账").Opened Then
        If e.Table.Current.isnull("账单编号") = True  Then
            If user.Name = e.Table.Current("业务负责") Then
                Forms("营业报账").Controls("删除当前行按键").Enabled = True
            Else
                Forms("营业报账").Controls("删除当前行按键").Enabled = False
            End If
        End If
    End If
End If

 

但是出现下面的错误提示：

.NET Framework 版本：2.0.50727.5477
Foxtable 版本：2014.4.16.1
错误所在事件：利润明细单,CurrentChanged
详细错误信息：
列“业务负责”不属于表 利润明细单。

 

想达到的效果就是：

当订单编号填写之后

当前登陆用户不是父表”利润单“的”业务负责“得时候

删除按键不能用。

是的，所以我才

Dim r As DataRow = DataTables("利润单").Find("业务负责 ='" & e.Table.Current("业务负责") & "'") 

 

或者

Dim r As DataRow = e.Row.DataRow.GetParentrow("利润单")

 

 

但是还是报错

 

row不是tableeventargs的成员

Dim r As DataRow = e.Row.DataRow.GetParentrow("利润单")

写在

CurrentChanged

报错

row不是tableeventargs的成员

好吧，就是有点慢