以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教各位大大 谢谢  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=131155)

--  作者:ezilu
--  发布时间:2019/2/18 23:32:00
--  请教各位大大 谢谢
  项目类别    类别1   类别2  
   项目1    a    b
   项目2    c   d 
   项目3    e    f
   项目4    g    h

加入上面是一个表table

我现在想在窗体时间一个功能:

在窗口的afterload事件中   加入一段代码

实现  窗口控件 Textbox1 自动读取 列符合“类别2”、 行符合“项目3”的值,也就是自动显示“f

请教各位大大


--  作者:有点蓝
--  发布时间:2019/2/19 8:37:00
--  
dim dr as datatow = datatables("表A").find("项目类别=\' 项目3\'")
if dr isnot nothing then
    e.form.controls("Textbox1").text = dr("类别2")
end if