以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗口控件数据绑定求助  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106565)

--  作者:998168
--  发布时间:2017/9/11 21:42:00
--  窗口控件数据绑定求助
如题,有一个如下图的窗口,窗口2中的各个控件的数据都分出现在窗口表1(窗口表利用SQL语句多表生成的)里,
这样的窗口能实现查看数据(双击窗口表某行弹出窗口2,在窗口2可直接查看或修改数据保存到各个表中),新增数据,修改数据。
窗口表1的数据大部分来自商品表,
3的数据来自类别表,通过商品表的类别编码来联系,
4的数据来自供应商表,通过供应商编号来联系,
5的数据来自商品供应商关系表,通过商品编号来联系。

图片点击可在新窗口打开查看此主题相关图片如下:窗口控件设计.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2017/9/11 21:56:00
--  
多表查询生成的表只能查看,可以绑定,不能编辑,也无法保存。

方法2,不绑定,使用代码赋值和取值

--  作者:riyuan
--  发布时间:2023/8/6 13:19:00
--  
具体如何 写代码
--  作者:有点蓝
--  发布时间:2023/8/6 20:27:00
--  
比如:
dim r as row = Tables("商品表").Current
if r isnot nothing then
dim dr as datarow = datatables("类别表").find("类别编码=\'" & r("类别编码") & "\'")
if dr isnot nothing then
e.Form.Controls("textbox货号").Text = dr("货号")
end if
end if