Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共3 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:[求助]

1楼
WXF01541 发表于:2024/5/14 16:48:00
有A表和B表,两个表都有客户代号和客户图号两列,如何实现在A表输入客户代号和客户图号后,如果在B表无对应客户代号及客户图号会自动添加,否则不添加
2楼
有点蓝 发表于:2024/5/14 16:54:00
类似:http://www.foxtable.com/webhelp/topics/1451.htm

表A,datacolchanged事件
Select Case e.DataCol.Name
    Case
 "
客户代号","客户图号"
        
Dim dr As DataRow = e.DataRow
        
Dim pr As DataRow
        
If dr.IsNull("客户代号")=false andalso dr.IsNull("客户图号"=false Then
            
Dim filter As String
            filter = 
"客户代号 = '" & dr("客户代号") & "' And 客户图号 = '" & dr("客户图号") & "'"
            pr = 
DataTables("表B").Find(filter)
            If pr Is Nothing Then
                pr = DataTables("表B").addnew
                pr(
"客户代号") = dr("客户代号")
                pr("客户图号") = dr("客户图号")
            End
 
If
        
End If
End
 Select
3楼
cd_tdh 发表于:2024/5/14 16:54:00
http://www.foxtable.com/webhelp/topics/1451.htm
共3 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03125 s, 2 queries.