Foxtable(狐表)用户栏目专家坐堂 → [求助]在fx 表达式里面如何应用 字符型函数


  共有2827人关注过本帖树形打印复制链接

主题:[求助]在fx 表达式里面如何应用 字符型函数

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/10/16 12:07:00 [显示全部帖子]

 
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:实验1方案2 管理项目差异统计表.foxdb


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/10/16 17:24:00 [显示全部帖子]

 项目事件,mainTableChanged,代码

 

If MainTable.Name = "差异统计表" Then
    MainTable.DataTable.DataRows.Clear
    For Each ary As String() In DataTables("车间入库数量统计表").GetValues("产品图号|产品名称", "产品图号 is not null or 产品名称 is not null")
        Dim nr As Row = MainTable.AddNew
        nr("产品图号") = ary(0)
        nr("产品名称") = ary(1)
        Dim fdr As DataRow = DataTables("车间入库数量统计表").Find("产品图号 = '" & ary(0) & "' and 产品名称 = '" & ary(1) & "' And 库房保管员姓名 Is not null And 车间名称 Is not null")
        If fdr IsNot Nothing Then
            nr("库房保管员姓名") = fdr("库房保管员姓名")
            nr("车间名称") = fdr("车间名称")
        End If
    Next
    For Each ary As String() In DataTables("销售入库数量统计表").GetValues("产品图号|产品名称", "产品图号 is not null or 产品名称 is not null")
        If MainTable.DataTable.Find("产品图号 = '" & ary(0) & "' and 产品名称 = '" & ary(1) & "'") Is Nothing Then
            Dim nr As Row = MainTable.AddNew
            nr("产品图号") = ary(0)
            nr("产品名称") = ary(1)
        End If
    Next
End If


 回到顶部