- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何判断2个表相同字段是否包含 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=47066)
-- 发布时间：2014/3/4 10:11:00
-- [求助]如何判断2个表相同字段是否包含
计划表和采购表均有项目编号字段（两表关联字段），想在计划表增加1列，判断计划表项目编号字段中某个项目编号在采购表项目编号字段中是否有，如何做到？谢谢！
-- 发布时间：2014/3/4 10:27:00
--
利用FIND查找即可 http://www.foxtable.com/help/topics/0396.htm
-- 发布时间：2014/3/4 10:50:00
--
我是菜鸟，能详细些吗？最后帮忙写出来！多谢！
-- 发布时间：2014/3/4 10:57:00
--
一直靠赋值代码,是没办法进步的. 这也你需求稍微改一下,又要到处求人.
其实这个很简单的,自己动手试试没道理不会的.
在DataColChanged事件中
if e.datacol.name="项目编号" andalso e.datarow.isnull("项目编号")=false then
if datatables("采购表").FInd("项目编号=\'" & e.datarow("项目编号") & "\'") then
messagebox.show("没有")
else
messagebox.show("有")
end if
end if
-- 发布时间：2014/3/4 11:02:00
--
虚心接受，以后改进！
如何把“没有”或“有”写入到计划表的另1列呢？谢谢！
-- 发布时间：2014/3/4 11:08:00
--
简单为表赋值而已.
e.datarow("列名")="没有"
-- 发布时间：2014/3/4 11:39:00
--
此主题相关图片如下：报错.jpg
写入：
If e.DataCol.name="xmbh" AndAlso e.DataRow.isnull("xmbh")=False Then
If DataTables("xm").FInd("xmbh=\'" & e.DataRow("xmbh") & "\'") Then
e.DataRow("qr")="没有"
Else
e.DataRow("qr")="有"
End If
End If
存盘时报错！
-- 发布时间：2014/3/4 11:42:00
--
If e.DataCol.name="xmbh" AndAlso e.DataRow.isnull("xmbh")=False Then
If DataTables("xm").FInd("xmbh=\'" & e.DataRow("xmbh") & "\'") is nothing Then
e.DataRow("qr")="没有"
Else
e.DataRow("qr")="有"
End If
End If
-- 发布时间：2014/3/4 12:03:00
--
对于新增记录，好用了！衷心感谢！
想每次打开计划表时，刷新“没有”或“有”，怎么做？
-- 发布时间：2014/3/4 12:05:00
--
http://www.foxtable.com/help/topics/1587.htm