主题：[求助]迷糊。。。按钮可用问题

 是不是这个意思？

If e.Table.Current IsNot Nothing Then  '如果当前表中没有对应的内容,那么执行下边
    If Forms("营业报账").Opened      '如果窗口打开
        Dim flag As Boolean = False
        For Each r As Row In Tables("利润单.利润明细单").Rows
            If r.IsNull("账单编号") Then
                flag = True
                Exit For
            End If
        Next
        If flag = False AndAlso user.Name = e.Table.Current("业务负责") Then
            Forms("营业报账").Controls("删除利润单按键").Enabled = True
            Forms("营业报账").Controls("删除利润明细按键").Enabled = True
        Else
            Forms("营业报账").Controls("删除利润单按键").Enabled = False
            Forms("营业报账").Controls("删除利润明细按键").Enabled = False
        End If
    End If
End If