- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]·跨表引用 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=124728)
-- 发布时间：2018/9/12 16:28:00
-- [求助]·跨表引用
请老师帮忙看下··哪里写错了·
~~~~
我想应用复选框选择好的·才导入到表B··
~~
结果是全部导进去了·
此主题相关图片如下：1.jpg
此主题相关图片如下：1.jpgDim 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
Next
f.Fill() \'填充数据
[此贴子已经被作者于2018/9/12 16:28:23编辑过]
-- 发布时间：2018/9/12 16:34:00
--
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
-- 发布时间：2018/9/12 16:37:00
-- 回复：（有点甜）Dim Cols1() As String = {"日期", "...
···谢谢老师
-- 发布时间：2018/9/12 16:43:00
-- 回复：（有点甜）Dim Cols1() As String = {"日期", "...
请问老师这个·插件能不能限制·只能点击当前日期呢·
此主题相关图片如下：2.jpg
-- 发布时间：2018/9/12 17:09:00
--
回复4楼，无法限制的。不然，你不要出现这个插件，单元格那里按下两次空格，也是填写当前日期的。
-- 发布时间：2018/9/13 14:39:00
-- 回复：（有点甜）回复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
此主题相关图片如下：1.jpg-- 发布时间：2018/9/13 14:48:00
--
TopicLinkClick你写了什么代码？
http://www.foxtable.com/webhelp/scr/0869.htm
-- 发布时间：2018/9/13 14:55:00
-- 回复：（有点甜）TopicLinkClick你写了什么代码？&n...
·我这个忘记了怪不得打不开~~
--
请问老师·是不是这样的·
Select Case e.Link.Name
Case "今日新增采购部件"
Forms("采购订单").open
\'在此加入相应的代码
End Select
\'MessageBox.Show(e.Page.Name & "|" & e.Link.Name)
-- 发布时间：2018/9/13 14:58:00
--
回复8楼，是的，根据你的需要编写代码即可。