- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 窗口控件问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=49353)
-- 发布时间：2014/4/16 16:39:00
-- 窗口控件问题
１、如何在窗口中设置一个按钮，把控件里的内容用代码绑定到一个表中。输入完毕后再把控件里的内容消除。
２、如何把表中的内容用代码绑定到窗口的控件里。
请高手指点
[此贴子已经被作者于2014-4-16 17:13:38编辑过]
-- 发布时间：2014/4/16 16:43:00
--
纸上不谈兵,请上例子.
1.所谓的输入完毕时指点击保存还是什么?
取值可以用 tables("表名).current("列名") 赋值同样是为它赋值
-- 发布时间：2014/4/18 14:42:00
--
谁记得控件的焦点控制在帮助文件的哪一节呢？
-- 发布时间：2014/4/18 14:45:00
--
以下是引用云之梦在2014-4-18 14:42:00的发言：
谁记得控件的焦点控制在帮助文件的哪一节呢？
谁记得控件的焦点控制在帮助文件的哪一节呢？
这个？ http://www.foxtable.com/help/topics/0729.htm
-- 发布时间：2014/4/18 14:45:00
--
e.Form.Controls("控件名").Select
-- 发布时间：2014/6/13 9:22:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
按下按扭如何用代码把明细表中的数据自动输入到窗口的控件里
[此贴子已经被作者于2014-6-13 9:26:07编辑过]
-- 发布时间：2014/6/13 9:29:00
--
问这个？
Dim Filter As String
With e.Form.Controls("客户")
If .Value IsNot Nothing Then
Filter = "客户= \'" & .Value & "\'"
End If
End With
If Filter > "" Then
Tables("明细").Filter = Filter
End If
Dim mx As Row = Tables("明细").Current
If mx IsNot Nothing
e.Form.Controls("客户1").Text = mx("总重")
e.Form.Controls("总重").Text = mx("总重")
e.Form.Controls("皮重").Text = mx("皮重")
e.Form.Controls("净重").Text = mx("净重")
End If
-- 发布时间：2014/6/13 10:24:00
--
谢谢大仙!
还有一个问题:
能不能在窗口中用控件计算净重=总重-皮重
-- 发布时间：2014/6/13 10:35:00
--
以下是引用张子俊在2014-6-13 10:24:00的发言：
谢谢大仙!
还有一个问题:
能不能在窗口中用控件计算净重=总重-皮重
e.Form.Controls("净重").Text = val(e.Form.Controls("总重").Text) - val(e.Form.Controls("皮重").Text)
-- 发布时间：2014/6/13 10:49:00
--
不好意思这个代码放到那里