以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]表查询及自动填值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=41274)

--  作者:zlrcqzj
--  发布时间:2013/10/15 14:53:00
--  [求助]表查询及自动填值

刚接触狐表,寻求代码:

表A有gcmc、sgdw等列,表B只有gcmc、sgdw列,表B数据唯一对应,无重复。

希望点击表A的gcmc列单元格,取得当前单元格的值,在表B中查询并取得gcmc对应的sgdw的值,该值自动填入表A点击行的sgdw。


--  作者:Bin
--  发布时间:2013/10/15 15:03:00
--  
利用 FIND 找到对应的行,再执行赋值即可 http://www.foxtable.com/help/topics/0396.htm

例如

dim dr as datarow = datatables("表B").find("gcmc=\'" & e.datarow("gcmc") & "\'")
if dr isnot nothing then
    dr("sgdw")=e.datarow("sgdw")
end if