以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 自动填充命令  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=53888)

--  作者:wumingrong1
--  发布时间:2014/7/17 14:12:00
--  [求助] 自动填充命令
我有一个 表A  如果 表A 中有某行的 ‘第一列’内容="窗口1_TextBox1" 和  ‘第二列’内容="窗口1_TextBox2" ;那么将 TextBox3的内容填入到第三列的该行中、将 TextBox4的内容填入到第四列的该行中
--  作者:Bin
--  发布时间:2014/7/17 14:22:00
--  
请上例子.
--  作者:wumingrong1
--  发布时间:2014/7/17 14:45:00
--  
如下图:我检测到TextBox1和TextBox2的内容与“设备列表”中的’区域‘和’机房‘有相同内容;那么我就将 TextBox3的内容填入“设备名称”;将TextBox4的内容填入“设备型号”;将TextBox5的内容填"板件名称"中去
 
图片点击可在新窗口打开查看此主题相关图片如下:360截图20140717144131421.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:360截图20140717144108812.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:360截图20140717144614281.jpg
图片点击可在新窗口打开查看


[此贴子已经被作者于2014-7-17 14:46:15编辑过]

--  作者:Bin
--  发布时间:2014/7/17 14:47:00
--  
文件例子发上来.
--  作者:Bin
--  发布时间:2014/7/17 14:49:00
--  
dim r as row = tables("设备列表").current

if e.form.controls("textbox1").text=r("区域") andalso e.form.controls("textbox2").text=r("机房") then
     r("设备名称")=e.form.controls("textbox4").text
end if

--  作者:wumingrong1
--  发布时间:2014/7/17 14:56:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.foxdb


--  作者:Bin
--  发布时间:2014/7/17 14:57:00
--  
看5楼
--  作者:wumingrong1
--  发布时间:2014/7/17 15:05:00
--  
五楼无法满足要求,无法自动在表中进行查询;
--  作者:Bin
--  发布时间:2014/7/17 15:09:00
--  
你要查找到这一行而不是取当前行的话就利用FIND  用了半年了,发帖200多,基本知识也该掌握了

只会依赖别人,复制代码,这不科学

dim r as datarow = datatables("设备列表").Find("区域=\'" & e.form.controls("textbox1").text & "\' and 机房=\'" & e.form.controls("textbox2").text & "\'")

if r isnot nothing  then
     r("设备名称")=e.form.controls("textbox4").text
end if

--  作者:wumingrong1
--  发布时间:2014/7/17 15:19:00
--  
真正开始使用也就5月份才开始,见笑啦图片点击可在新窗口打开查看

以上命令只能填入第一条,如果表中有多条相同条件的没有全部填入