共12 条记录, 每页显示 10 条, 页签: [1] [2]

标题：窗口表取数

1楼

实话实说 发表于：2023/9/15 10:48:00

窗口1

选择库存现金或银行存款，表B的余额通过科目代码取表A的余额

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.foxdb

2楼

有点蓝 发表于：2023/9/15 10:58:00

没看懂，请解释一下

3楼

实话实说 发表于：2023/9/15 11:06:00

我想通过单选按钮把表A的余额取到表B（表B只有一行）

4楼

有点蓝 发表于：2023/9/15 11:40:00

根据什么规则取值

5楼

实话实说 发表于：2023/9/15 11:45:00

控件名称与科目名称相同

6楼

有点蓝 发表于：2023/9/15 11:57:00

使用find函数（http://www.foxtable.com/webhelp/topics/0396.htm）到表A查询科目名称=控件名称的行。然后给表B赋值即可

7楼

实话实说 发表于：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("余额")

8楼

有点蓝 发表于：2023/9/15 13:34:00

9楼

实话实说 发表于：2023/9/15 13:59:00

看了一下，一时也搞不定，给个代码吧。有针对性的理解

10楼

有点蓝 发表于：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

共12 条记录, 每页显示 10 条, 页签: [1] [2]