[求助]·跨表引用 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

请老师帮忙看下··哪里写错了·

~~~~

我想应用复选框选择好的·才导入到表B·· 图片点击可在新窗口打开查看

结果是全部导进去了·
图片点击可在新窗口打开查看

此主题相关图片如下：1.jpg

Dim f As New Filler

f.SourceTable = DataTables("表A") '指定数据来源

f.SourceCols = "日期,名称,型号,材质" '指定数据来源列

f.DataTable = DataTables("表B") '指定数据接收表

f.DataCols = "日期,名称,型号,材质" '指定数据接收列

f.Filter = "日期 = #" & Date.Today & "# and 物料属性 = '外购'"

Dim rs As List(of Row) = Tables("表A").GetCheckedRows()

For Each r As Row In rs

r.Checked = True

f.Fill() '填充数据

[此贴子已经被作者于2018/9/12 16:28:23编辑过]

Dim Cols1() As String = {"日期", "名称", "型号", "材质"}
Dim Cols2() As String = {"日期", "名称", "型号", "材质"}
Dim rs As List(of Row) = Tables("表A").GetCheckedRows()
For Each r As Row In rs
Dim nr As DataRow = DataTables("表B").addnew
    For i As Integer = 0 To Cols1.Length -1
        nr(Cols2(i)) = r(Cols1(i))
    Next
Next

请问老师这个·插件能不能限制·只能点击当前日期呢·
图片点击可在新窗口打开查看

此主题相关图片如下：2.jpg

回复4楼，无法限制的。不然，你不要出现这个插件，单元格那里按下两次空格，也是填写当前日期的。

请老师帮忙看下~~这个导航怎么点击·不弹出对应界面··

~~~

这代码哪里出错了··

——————————————

Dim Page As WinForm.TopicPage

Dim cnt1 As Integer = DataTables("采购订单表").Compute("Count(采购_名称)","采购_下单日期 = #" & Date.Today & "#")

Dim cnt2 As Integer = DataTables("生产通知单").Compute("Count(产品名称)","下单日期 = #" & Date.Today & "#")

Dim cnt3 As Integer = DataTables("退货单").Compute("Count(退货_部件名称)","退货_日期 = #" & Date.Today & "#")

Dim cnt4 As Integer = DataTables("不合格评审").Compute("Count(产品名称)","检验日期 = #" & Date.Today & "#")

Dim cnt5 As Integer = DataTables("派工工单").Compute("Count(工序)","派工日期 = #" & Date.Today & "#")

Dim cnt6 As Integer = DataTables("订单流转").Compute("Count(产品名称)","日期 = #" & Date.Today & "#")

Dim cnt8 As Integer = DataTables("报检记录").Compute("Count(名称)","报检日期 = #" & Date.Today & "#")

Page = e.Form.Controls("TopicBar1").Pages.Add("统计汇总","统计汇总")

Page.Links.Add("今日新增采购部件","今日新增采购部件 (" & cnt1 & ")" )

Page.Links.Add("今日新增销售工单","今日新增销售工单 (" & cnt2 & ")" )

Page.Links.Add("今日新增退货产品","今日新增退货产品 (" & cnt3 & ")" )

Page.Links.Add("今日新增不合格评审","今日新增不合格评审 (" & cnt4 & ")" )

Page.Links.Add("今日新增派工工单","今日新增派工工单 (" & cnt5 & ")" )

Page.Links.Add("今日新增流转订单","今日新增流转订单 (" & cnt6 & ")" )

Page.Links.Add("今日新增报检记录","今日新增报检记录 (" & cnt8 & ")" )

Dim cnt7 As Integer = DataTables("采购订单表").Compute("Count(采购_名称)","采购_下单日期 >= #" & Date.Today & "# and 采购_下单日期 < #" & Date.Today.AddDays(10) & "# And (到货状态 Is null Or 到货状态 <> 'OK') ")

Page = e.Form.Controls("TopicBar2").Pages.Add("十天内信息汇总","十天内信息汇总")
图片点击可在新窗口打开查看

此主题相关图片如下：1.jpg

TopicLinkClick你写了什么代码？

http://www.foxtable.com/webhelp/scr/0869.htm

·我这个忘记了怪不得打不开~~

请问老师·是不是这样的·

Select Case e.Link.Name

Case "今日新增采购部件"

Forms("采购订单").open

'在此加入相应的代码

End Select

'MessageBox.Show(e.Page.Name & "|" & e.Link.Name)

回复8楼，是的，根据你的需要编写代码即可。

主题：[求助]·跨表引用