以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  CheckBox不关闭窗口  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=94506)
--  作者：longyanlin
--  发布时间：2016/12/25 11:27:00
--  CheckBox不关闭窗口
如何让CheckBox1勾选时，该窗口不关闭，因为我做了个双击关闭的按钮，如果是勾选了就不需要关闭，没有勾选就关闭
--  作者：有点色
--  发布时间：2016/12/25 11:29:00
--  

 判断一下呗

 

If e.form.Controls("CheckBox1").Checked Then

 

Else

 

End If
--  作者：longyanlin
--  发布时间：2016/12/25 12:27:00
--  

谢谢老师解答
--  作者：longyanlin
--  发布时间：2016/12/25 15:36:00
--  

老师帮忙做下如下代码：

If e.form.Controls("CheckBox1").Checked Then
      Dim dr As Row
      dr = Tables("入库单.入库明细").AddNew()
    


Tables("入库单.入库明细").Current("物料编号") = e.Table.Current("物料编号")
Tables("入库单.入库明细").Current("品名规格") = e.Table.Current("品名规格")
Tables("入库单.入库明细").Current("单位") = e.Table.Current("单位")
Tables("入库单.入库明细").Current("单价") = e.Table.Current("单价")
Else
 Forms("添加入库").Close
End If

加一句让表“添加入库_添加入库”表里面复选框勾选了的行新增到表（“入库单.入库明细”）里去。谢谢老师了！
--  作者：有点色
--  发布时间：2016/12/25 15:46:00
--  

 

If e.form.Controls("CheckBox1").Checked Then
    Dim t As Table = Tables("添加入库_添加入库")
    For Each r As Row In t.GetCheckedRows
        Dim dr As Row = Tables("入库单.入库明细").AddNew()
        dr("物料编号") = r("物料编号")
        dr("品名规格") = r("品名规格")
        dr("单位") = r("单位")
        dr("单价") = r("单价")
    Next
Else
    Forms("添加入库").Close
End If
--  作者：longyanlin
--  发布时间：2016/12/25 16:15:00
--  

老师，可以了，非常感谢

[此贴子已经被作者于2016/12/25 16:16:48编辑过]
--  作者：有点色
--  发布时间：2016/12/25 16:18:00
--  

 没看明白你的意思。处理复选框参考

 

http://www.foxtable.com/webhelp/scr/1776.htm

 
--  作者：longyanlin
--  发布时间：2016/12/25 16:41:00
--  

老师的代码是CheckBox1控件勾选了，才能复制，否则关闭窗口，也不能复制，如果是CheckBox1不勾选就只能在表（“添加入库_添加入库”）里面勾选一行复制，如果CheckBox1控件勾选了，就可以选择很多复选框勾选的行复制，就完美了，呵呵！
--  作者：有点色
--  发布时间：2016/12/25 17:11:00
--  

 事件里面判断一下不就好了？

 

If e.form.Controls("CheckBox1").Checked Then

 

Else

    Dim t As Table = e.Table

    If t.GetCheckedRows.Count > 1 Then

        msgbox("不能勾选多于1行")

    End If

End If