- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求赋值代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=68261)
-- 发布时间：2015/5/13 16:36:00
-- 求赋值代码
如图，当两表的 采购单号和物料编号相等时，将上表中的“是否送检”赋值到下表中是“是否送检”列中
求代码，谢谢老师
此主题相关图片如下：qq截图20150513163140.png
-- 发布时间：2015/5/13 16:41:00
--
上表DataColChanged事件
select case e.datacol.name
case "是否送检"
if e.datarow.isnull("采购单号")=false andalso e.datarow.isnull("物料编码")=false then
dim dr as dataorw = datatables("下表").find("采购单号=\'" & e.datarow("采购单号") & "\' and 物料编码=\'" & e.datarow("物料编码") & "\'")
if dr isnot nothing then
dr("是否送检")=e.newValue
end if
end if
end select
-- 发布时间：2015/5/13 16:56:00
--
完美解决，谢谢老师