[求助]迷糊。。。按钮可用问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]迷糊。。。按钮可用问题

共有3629人关注过本帖树形打印复制链接主题：[求助]迷糊。。。按钮可用问题

viking

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：371 积分：3120 威望：0 精华：0 注册：2013/7/13 15:49:00

[求助]迷糊。。。按钮可用问题 发帖心情

Post By：2014/5/5 11:44:00 [只看该作者]

请教一下各位老师，帮忙看下下面这个代码：

问题：1、虽然写了： If user.Name = e.Table.Current("业务负责") Then

但是，并没有起作用。

2、我想“利润单.利润明细单”中子表中只要有一行数据的“账单编号”不是空值，那么“删除利润单按键”不可用

可现在代码的效果：只有选中子表中“账单编号”不是空值的行，按键不可用

求老师给改下，谢谢

If e.Table.Current IsNot Nothing Then '如果当前表中没有对应的内容,那么执行下边
    If Forms("营业报账").Opened      '如果窗口打开
        If Tables("利润单.利润明细单").Current.isnull("账单编号") = False Then
            If 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
End If

lsy

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2014/5/5 11:49:00 [只看该作者]

例子发上来。

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/5/5 11:56:00 [只看该作者]

是不是这个意思？

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

viking

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：371 积分：3120 威望：0 精华：0 注册：2013/7/13 15:49:00

Post By：2014/5/5 14:50:00 [只看该作者]

想问下这段的意思是什么啊？

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/5/5 15:02:00 [只看该作者]

以下是引用viking在2014-5-5 11:44:00的发言：

2、我想“利润单.利润明细单”中子表中只要有一行数据的“账单编号”不是空值，那么“删除利润单按键”不可用

可现在代码的效果：只有选中子表中“账单编号”不是空值的行，按键不可用

是这个意思......

viking

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：371 积分：3120 威望：0 精华：0 注册：2013/7/13 15:49:00

Post By：2014/5/5 15:34:00 [只看该作者]

但是出了一个新问题：当“利润单.利润明细单”中的所有数据的账单编号列全都不是空值的时候，按键可用，希望不可以用啊！！

If e.Table.Current IsNot Nothing Then '如果当前表中没有对应的内容,那么执行下边
    If Forms("营业报账").Opened      '如果窗口打开
        Dim flag As Boolean = False      ’假设flag都是空值
        For Each r As Row In Tables("利润单.利润明细单").Rows
            If r.IsNull("账单编号") Then
                flag = True       ‘如果("利润单.利润明细单").账单编号列中值=flag ，那么出局，如果不等于继续？   （是这个意思吗？？？？）
                Exit For
            End If

[此贴子已经被作者于2014-5-5 15:34:04编辑过]

有点甜

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/5/5 15:42:00 [只看该作者]

以下是引用viking在2014-5-5 15:34:00的发言：

但是出了一个新问题：当“利润单.利润明细单”中的所有数据的账单编号列全都不是空值的时候，按键可用，希望不可以用啊！！

[此贴子已经被作者于2014-5-5 15:34:04编辑过]

呃，你是希望可用，还是希望不可用？和5楼的有矛盾啊。

viking

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：371 积分：3120 威望：0 精华：0 注册：2013/7/13 15:49:00

Post By：2014/5/5 15:46:00 [只看该作者]

我希望，只要子表的数据中，其中有一行的账单编号列不是空值，那么（按键）就不可用，包括全部数据的账单编号都不是空值的情况。

有点甜

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/5/5 16:02:00 [只看该作者]

以下是引用viking在2014-5-5 15:46:00的发言：

我希望，只要子表的数据中，其中有一行的账单编号列不是空值，那么（按键）就不可用，包括全部数据的账单编号都不是空值的情况。

哦，那代码就是写反了，改一下

        Dim flag As Boolean = False
        For Each r As Row In Tables("利润单.利润明细单").Rows
            If r.IsNull("账单编号") = False Then
                flag = True
                Exit For
            End If
        Next

下一主题 >> << 上一主题

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