组合框 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 组合框

共有3664人关注过本帖树形打印复制链接主题：组合框

bzqlyj

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

等级：童狐帖子：271 积分：2246 威望：0 精华：0 注册：2020/9/28 14:53:00

组合框

Post By：2021/4/29 11:50:00 [显示全部帖子]

在窗口录入时，如何控制ComboBox组合框只能通过下拉菜单录入，不能通过双击输入

bzqlyj

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

等级：童狐帖子：271 积分：2246 威望：0 精华：0 注册：2020/9/28 14:53:00

回复：（有点蓝）窗口设计：“允许直接输入”设为Fals... 发帖心情

Post By：2021/4/29 12:29:00 [显示全部帖子]

请问这一句 If T ables("表A.表B").Rows.Count =0 Then

如何改为大于0且B列为"是"的条件，

bzqlyj

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

等级：童狐帖子：271 积分：2246 威望：0 精华：0 注册：2020/9/28 14:53:00

回复：（有点蓝）if Tables("表A.表B").comoute(... 发帖心情

Post By：2021/4/30 12:06:00 [显示全部帖子]

下面这个按钮，当我点一下时，可以满足条件1、当我点第二次时，应该显示请先2，但不执行，还是在条件1

1、If C urrentTable.compute("count(A)","A='KK'") > 0 Then

M essageBox.Show("请先1")

Else

If C urrentTable.C urrent IsNot Nothing Then

C urrentTable.C urrent.C lone()

C urrentTable.C urrent("A") = Nothing

End If

2、If C urrentTable.c ompute("c ount(A)","A = LL") > 0 Then

M essageBox.Show("请先2")

End If

效果：当在窗体中，进行查找，找到当前行后，通过此按钮判断，当前行的A列＝KK，大于0，则显示请先1，否则，克隆行并清除A列内容，第二次按此按钮，如此行A列未编辑为空，则显示请先2，

主题：组合框