- 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