- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]在fx 表达式里面如何应用 字符型函数 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=58412)
-- 发布时间：2014/10/16 11:13:00
-- [求助]在fx 表达式里面如何应用 字符型函数
①
-- 发布时间：2014/10/16 11:15:00
--
1.你想实现什么?
-- 发布时间：2014/10/16 11:24:00
-- [求助]在fx 表达式里面如何应用 字符型函数
①
-- 发布时间：2014/10/16 12:07:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:实验1方案2 管理项目差异统计表.foxdb |
-- 发布时间：2014/10/16 16:15:00
-- [求助]添加多列名称，能否把EXCEL的含有合并的列名称直接导入
车间表里面有重复的时候
此主题相关图片如下：123.jpg
-- 发布时间：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