- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 一个窗口控件内容复制到另外一个窗口控件 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=88944)
-- 发布时间：2016/8/12 9:53:00
-- 一个窗口控件内容复制到另外一个窗口控件
点击按钮怎么可以把表选中的行的名称和输入的金额、备注复制到另外应该窗口的控件里面啊？
窗口1的
ComboBox3 得到窗口2的表 名称列选中的行
TextBox1 得到窗口2的TextBox1
NumericComboBox1得到窗口2的NumericComboBox1 就是点击按钮把一个窗口的数据复制到另外一个窗口
此主题相关图片如下：qq截图20160812094353.jpg
-- 发布时间：2016/8/12 9:57:00
--
Dim t As Table = e.Form.Controls("Table1").Table
Dim je As Double = e.Form.Controls("NumericComboBox1").Text
Dim bz As String = e.Form.Controls("TextBox").Text
For Each r as Row in t.Rows
msgbox(r("名称") & " " & je & " " & bz)
Next
-- 发布时间：2016/8/12 10:31:00
--
谢谢 谢谢 ，只是感觉还是不能到另外一个窗口里面样，能帮我在看看吗？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:窗口内容复制.table |
此主题相关图片如下：qq截图20160812102710.jpg
-- 发布时间：2016/8/12 11:09:00
--
Dim t As Table = e.Form.Controls("Table1").Table
Dim je As Double = e.Form.Controls("NumericComboBox1").value
Dim bz As String = e.Form.Controls("TextBox1").Text
forms("窗口1").Open
forms("窗口1").controls("Textbox1").Text = bz
forms("窗口1").controls("Textbox2").Text = t.Current("第一列")
forms("窗口1").controls("NumericComboBox1").Text = je
If bz > "" Then
forms("窗口1").controls("CheckBox1").checked = True
Else
forms("窗口1").controls("CheckBox1").checked = False
End If
-- 发布时间：2016/8/12 11:25:00
--
谢谢 可以了 知道 为什么TextBox2单独执行就不行了呢？
If controls("TextBox2") > "" Then
forms("窗口1").controls("CheckBox1").checked = True
Else
forms("窗口1").controls("CheckBox1").checked = False
End If
-- 发布时间：2016/8/12 11:42:00
--
If forms("窗口1").controls("TextBox2").Text > "" Then
forms("窗口1").controls("CheckBox1").checked = True
Else
forms("窗口1").controls("CheckBox1").checked = False
End If