- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- table1中房间号列使用下拉窗口，里面的table2复选框的值怎么存回table1的这个房间号列？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=39210)
-- 发布时间：2013/8/18 20:12:00
-- table1中房间号列使用下拉窗口，里面的table2复选框的值怎么存回table1的这个房间号列？
问题1. table1中（房间号）列使用下拉窗口，打开的窗口里面的table2复选框的值怎么存回table1的这个（房间号）列？
问题2. 弹出下拉窗口时，table2中有 table1中的（房间号）列里的值 的行前面的复选框是选中状态的。
此主题相关图片如下：tab.jpg
此主题相关图片如下：tab2.jpg
-- 发布时间：2013/8/18 20:28:00
--
可以做，但需要写简单的代码。
1、遍历table2所有的行，看行是否被选中。选中就往 房间号 添加数据。
2、在table2中查找对应的行，勾选。
你上传一个例子吧，楼主。
-- 发布时间：2013/8/18 20:46:00
--
第2个问题解决了。
\'以下是把原有的房间号的行的复选框勾选上.
Dim zcl As String= Tables("userb.zclxingcheng").current("房间号")
Dim zcls As String =zcl.Replace(" ","")
For Each r As Row In Tables("选房窗口_table1").Rows
If zcls.Contains(r("房间号")) Then
r.Checked = True
End If
Next
现在还缺第一个问题的代码， 就是怎么把选中的复选框所在行的房间号码的集合，写回到Tables("userb.zclxingcheng").current("房间号")
-- 发布时间：2013/8/18 20:59:00
--
第一个问题，参考
Dim str As String = ""
For Each r As Row In Table("选房窗口_table1").Rows
If r.Checked Then
str += r("房间号") + ","
End If
Next
Tables("userb.zclxingcheng").current("房间号") = str.Trim(",")
-- 发布时间：2013/8/18 21:17:00
--
以下是引用有点甜在2013-8-18 20:59:00的发言：
第一个问题，参考
第一个问题，参考
Dim str As String = ""
For Each r As Row In Table("选房窗口_table1").Rows
If r.Checked Then
str += r("房间号") + ","
End If
Next
Tables("userb.zclxingcheng").current("房间号") = str.Trim(",")
Tables("userb.zclxingcheng").current("房间号") = str.Trim(",") 似乎不生效
替换成 Tables("userb.zclxingcheng").current("房间号") ="111\' 也无法把房间号改成111
这个代码在table1的当前窗口中可以修改， 在下拉窗口里无法修改上级窗口里的tables，估计还是代码中对 Tables("userb.zclxingcheng").current("房间号") 的书写格式是错误的。
[此贴子已经被作者于2013-8-18 21:23:06编辑过]
-- 发布时间：2013/8/18 21:40:00
--
这样写就行了
Forms("xxxx").DropDownBox.Value = "123,12"
或者
e.Form.DropDownBox.Value = "123,12"