以文本方式查看主题

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

--  作者:雨中的泪
--  发布时间:2011/7/6 10:33:00
--  各位老大再一次请教,谢谢
 

目的一:

根据“土地类”、“房屋类”两张表中“项目代码”字段内部的值判断“项目”表中的项目代码是否使用,如果使用“项目代码使用情况”逻辑字段勾选,未使用则不勾选!

目的二:

根据“土地类”、“房屋类”两张表中“补偿标准代码”字段内部的值判断“补偿标准表“中的补偿标准代码是否使用,如果使用“补偿标准使用情况”逻辑字段勾选,未使用则不勾选!

目的三:

做好是放在项目事件中(CurrentTableChanged/BeforeCloseProject),当用户做操作时,随时都能判断!!

 

相当于再表间作出判断

 

 

谢谢

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:表间判断.table


--  作者:狐狸爸爸
--  发布时间:2011/7/6 10:52:00
--  
你之前不是提过同样的问题吗?
--  作者:雨中的泪
--  发布时间:2011/7/6 11:21:00
--  
还是有问题,当删除完土地类、房屋类的表时,勾选的逻辑列不改变!!!
--  作者:雨中的泪
--  发布时间:2011/7/6 11:42:00
--  
各位老大帮忙看看,谢谢
--  作者:狐狸爸爸
--  发布时间:2011/7/6 11:50:00
--  
删除表之后,再执行一次打勾的代码即可。
--  作者:雨中的泪
--  发布时间:2011/7/6 12:01:00
--  

不好意思,不是删除表,而是清空表内数据

这个项目的代码如何写?

 

帮帮忙


--  作者:blackzhu
--  发布时间:2011/7/6 12:35:00
--  
datatables("表名").datarow.clear() \'清除表内数据,清除
--  作者:雨中的泪
--  发布时间:2011/7/6 13:30:00
--  

目的一:

根据“土地类”、“房屋类”两张表中“项目代码”字段内部的值判断“项目”表中的项目代码是否使用,如果使用“项目代码使用情况”逻辑字段勾选,未使用则不勾选!

目的二:

根据“土地类”、“房屋类”两张表中“补偿标准代码”字段内部的值判断“补偿标准表“中的补偿标准代码是否使用,如果使用“补偿标准使用情况”逻辑字段勾选,未使用则不勾选!

目的三:

做好是放在项目事件中(CurrentTableChanged/BeforeCloseProject),当用户做操作时,随时都能判断!!

 

相当于再表间作出判断

 

 

谢谢


--  作者:狐狸爸爸
--  发布时间:2011/7/6 14:14:00
--  

自己改写一下我之前给你的代码,放在CurrentTableChanged事件中:

 

 

 

For Each dr As DataRow In DataTables("补偿标准表").dataRows
    Dim nms() As String = {"土地补偿","房屋补偿"}
    For Each nm As String In nms
        For Each c As col  In Tables(nm).cols
            If c.name.StartsWith(dr("补偿物名")) Then
                dr("使用情况")  = True
                Exit For
            End If
        Next
        If dr("使用情况")  = True Then
            Exit For
        End If
    Next
Next


--  作者:雨中的泪
--  发布时间:2011/7/6 14:28:00
--  
没看懂