以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]若若的请教  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=44768)

--  作者:zyqzyy
--  发布时间:2014/1/8 15:37:00
--  [求助]若若的请教

 

实现目的:如果“表A”第一列的前三个字符 等于“表B”第一列的内容,那么,"表A"第七列的内容 =“表B” 第二列的内容!

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.foxdb


--  作者:Bin
--  发布时间:2014/1/8 15:44:00
--  
.
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3 (1).foxdb


--  作者:xiaoohoo
--  发布时间:2014/1/8 15:50:00
--  
哥还是试用版呢。



\'DataColChanged事件中
If e.DataCol.Name="第一列" And len(e.NewValue)>=3 Then
    Dim dr As DataRow
    dr=DataTables("表B").Find("[第二列] Like \'"& left(e.NewValue,3) &"\'")
    If dr IsNot Nothing Then
        e.DataRow("第七列")=dr("第二列")
    End If
End If

--  作者:zyqzyy
--  发布时间:2014/1/8 15:53:00
--  
谢谢版主,我会继续努力!
--  作者:zyqzyy
--  发布时间:2014/1/8 23:01:00
--  
谢谢三楼!