主题：[求助]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

 

 

 

 

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