以文本方式查看主题

-  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
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table

老师,请您帮我看下,新增按钮的代码应该如何设置,才能不循环增加票名为空的行呢?
--  作者: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)")