以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 如何根据所选内容跨表引用内容实现自动输入 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=150074) |
||||
-- 作者:Xin0101203 -- 发布时间:2020/5/20 10:33:00 -- 如何根据所选内容跨表引用内容实现自动输入 此主题相关图片如下:1.png 此主题相关图片如下:2.jpg |
||||
-- 作者:Xin0101203 -- 发布时间:2020/5/20 10:36:00 -- 请教老师,如何根据窗口的下拉选择框,实现跨表引用内容自动填充? |
||||
-- 作者:有点蓝 -- 发布时间:2020/5/20 10:43:00 -- 下拉选择框valuechanged事件,类似 dim ss as list(of string) = datatables("票种消息").getvalues("票名","售卖窗口=\'" & e.sender.text & "\'") for i as integer =0 to math.min(ss.count,tables("窗口表").rows.count) tables("窗口表").rows(i)("票名") = ss(i) next
|
||||
-- 作者:Xin0101203 -- 发布时间:2020/5/26 9:27:00 --
老师,请您帮我看下,新增按钮的代码应该如何设置,才能不循环增加票名为空的行呢? |
||||
-- 作者:Xin0101203 -- 发布时间:2020/5/26 9:43:00 -- 还有个问题,如何在窗口中点完保存后,窗口中的table不加载已经保存的行,只显示点完新增按钮之后新增的行,datatable(“票务销售”)不受影响,显示所有行? |
||||
-- 作者:有点蓝 -- 发布时间:2020/5/26 9:56:00 -- 新增 Dim cmb As WinForm.ComboBox cmb = Forms("每日销售记录").Controls("日销部门选框") Dim str As String = cmb.Value Dim drs As List(Of String) = DataTables("票种信息").GetValues("票名","售卖窗口 = \'" & str & "\' And 票名 Is not null") For Each ss As String In drs Dim r As Row = Tables("票务销售").AddNew() r("票名") = ss Next 帮助 保存按钮 e.Form.Controls("日销table").Table.save
|
||||
-- 作者:Xin0101203 -- 发布时间:2020/5/26 10:19:00 -- 谢谢老师解答,我想做的是点击保存后,窗口表不再显示已经保存的行,但是非窗口表datatable(“票务销售”)这个表可以显示所有行,我试过“[_Identify] is null”,设置完之后就都不显示了 |
||||
-- 作者:有点蓝 -- 发布时间:2020/5/26 10:24:00 -- e.Form.Controls("日销table").Table.filter = “false” |
||||
-- 作者:Xin0101203 -- 发布时间:2020/5/26 10:41:00 -- 这个我也试过,不行,点完保存之后窗口就不显示新增的行了 |
||||
-- 作者:有点蓝 -- 发布时间:2020/5/26 10:47:00 -- 保存按钮 Dim t As Table = e.Form.Controls("日销table").Table t.save t.filter = "_Identify > " & t.Compute("max(_Identify)") |