以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于 窗口2个文本框 值有联系的问题！  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=12121)
--  作者：gaoyong30000
--  发布时间：2011/8/23 20:03:00
--  [求助]关于 窗口2个文本框 值有联系的问题！

文本框A 绑定表A列 

文本框B 绑定表B列

 

文本框B的值怎么样设成自动  A值+5000?
--  作者：狐狸爸爸
--  发布时间：2011/8/23 21:37:00
--  
不要从文本框入手，从表与列入手，细看帮助中的事件编程这部分，特别是事件实例这一章，有很多例子。
--  作者：czy
--  发布时间：2011/8/23 21:38:00
--  
文本框A，ValueChanged事件代码。


e.Form.Controls("TextBox2").Value = e.Sender.Value + 5000
--  作者：gaoyong30000
--  发布时间：2011/8/23 22:39:00
--  

多谢了 czy代码可以的

 

我去研究下表的~~

[此贴子已经被作者于2011-8-23 22:39:15编辑过]
--  作者：gaoyong30000
--  发布时间：2011/8/23 23:32:00
--  

表达式 即可解决我的问题 !

 

但是 我用了 表里面 datachanged 属性代码后 出现问题

 

Select Case e.DataCol.Name
    Case "当前里程","下次保养公里数"
        Dim dq,xc As  DataRow
        If dq("当前里程") Is Nothing Then
            xc("下次保养公里数") = "3000"
        Else
            xc("下次保养公里数") = dq("当前里程") + "5000"
        End If
End Select

 

 

未将对象引用设置倒对象实例  不知道什么情况！

[此贴子已经被作者于2011-8-23 23:34:11编辑过]
--  作者：czy
--  发布时间：2011/8/24 0:06:00
--  

呵呵，定义变量应该这样

 

Dim dq As  DataRow = e.DataRow
--  作者：gaoyong30000
--  发布时间：2011/8/24 0:14:00
--  

哦 这样啊！ 明白了