以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗口表取数  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=188343)

--  作者:实话实说
--  发布时间:2023/9/15 10:48:00
--  窗口表取数
窗口1
选择库存现金或银行存款,表B的余额通过科目代码取表A的余额
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb


--  作者:有点蓝
--  发布时间:2023/9/15 10:58:00
--  
没看懂,请解释一下
--  作者:实话实说
--  发布时间:2023/9/15 11:06:00
--  
我想通过单选按钮把表A的余额取到表B(表B只有一行)
--  作者:有点蓝
--  发布时间:2023/9/15 11:40:00
--  
根据什么规则取值
--  作者:实话实说
--  发布时间:2023/9/15 11:45:00
--  
控件名称与科目名称相同
--  作者:有点蓝
--  发布时间:2023/9/15 11:57:00
--  
使用find函数(http://www.foxtable.com/webhelp/topics/0396.htm)到表A查询科目名称=控件名称的行。然后给表B赋值即可
--  作者:实话实说
--  发布时间:2023/9/15 12:32:00
--  
这样吗?
Dim rdo As WinForm.RadioButton
rdo = Forms("窗口1").Controls("库存现金")

Dim dr As DataRow
dr = DataTables("表A").Find("科目名称 = \'rdo\'") \'找出科目名称 = 控件名称的行
DataTables("表B").DataRow("金额")= dr("余额")

--  作者:有点蓝
--  发布时间:2023/9/15 13:34:00
--  
先看几遍:http://www.foxtable.com/webhelp/topics/1284.htm
--  作者:实话实说
--  发布时间:2023/9/15 13:59:00
--  
看了一下,一时也搞不定,给个代码吧。有针对性的理解
--  作者:有点蓝
--  发布时间:2023/9/15 14:09:00
--  
很基础的功能啊,到处都用得到。发帖都几千了,这个账户不会是个马甲吧,如果是个新手,建议另外注册个账户使用,新账户我都会回复的仔细点。

放到控件checked事件里

Dim dr As DataRow
dr = DataTables("表A").Find("科目名称 = \'" & e.sender.text & "\'") \'找出科目名称 = 控件名称的行
if dr isnot nothing then
dim r as row = Tables("表B").addnew
r("金额") =  dr("余额")
end if