| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 组合框 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=164201) |
| -- 作者：bzqlyj -- 发布时间：2021/4/29 11:50:00 -- 组合框 在窗口录入时，如何控制ComboBox组合框只能通过下拉菜单录入，不能通过双击输入 |
| -- 作者：有点蓝 -- 发布时间：2021/4/29 12:00:00 -- 窗口设计：“允许直接输入”设为False |
| -- 作者：bzqlyj -- 发布时间：2021/4/29 12:29:00 -- 回复：（有点蓝）窗口设计：“允许直接输入”设为Fals... 请问这一句 If T ables("表A.表B").Rows.Count =0 Then 如何改为大于0且B列为"是"的条件，
|
| -- 作者：有点蓝 -- 发布时间：2021/4/29 13:46:00 -- Tables("表A.表B").filter = "B列=\'是\'" if Tables("表A.表B").rows.count > 0 then
|
| -- 作者：有点蓝 -- 发布时间：2021/4/29 13:47:00 -- if Tables("表A.表B").comoute("count(B列)","B列=\'是\'") > 0 then |
| -- 作者：bzqlyj -- 发布时间：2021/4/30 12:06:00 -- 回复：（有点蓝）if Tables("表A.表B").comoute(... 下面这个按钮，当我点一下时，可以满足条件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 End If 效果：当在窗体中，进行查找，找到当前行后，通过此按钮判断，当前行的A列＝KK，大于0，则显示请先1，否则，克隆行并清除A列内容，第二次按此按钮，如此行A列未编辑为空，则显示请先2，
|
| -- 作者：有点蓝 -- 发布时间：2021/4/30 13:42:00 -- If C urrentTable.c ompute("c ount(A)","A = \'LL\'") > 0 Then |