以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  输入  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=21507)

--  作者:wilson
--  发布时间:2012/7/14 20:18:00
--  输入

我想点击窗口1的按钮,把窗口1文本框("TextBox1").内容,输入到窗口2("DropBox1")里

调试N次都不行,求助

 

Dim c2 As Winform.Control = Forms("窗口2").Controls("DropBox1")
c2.Value = e.Form.Controls("TextBox1").Value


--  作者:ahbzczy
--  发布时间:2012/7/14 21:26:00
--  
Dim t As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim d As WinForm.DropDownBox = e.Form.Controls("DropBox1")
If t.Value IsNot Nothing Then
    d.Value = t.Value
End If

--  作者:wilson
--  发布时间:2012/7/14 21:41:00
--  
问题已解决,谢谢!
--  作者:wilson
--  发布时间:2012/7/14 22:15:00
--  

还有一个问题如果转换为表

我用以下代码无法输入,求助,谢谢!

Dim r As Row = Tables("客户信息表").Current
Dim dr As Row = Tables("配件销售表").Current
If dr IsNot Nothing Then
    dr("客户名称") = r("客户名称")
End If