- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]修改数据 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=93358)
-- 发布时间：2016/11/26 13:31:00
-- [求助]修改数据
老师好：
此主题相关图片如下：图像 1.png
-- 发布时间：2016/11/26 14:19:00
--
参考：http://www.foxtable.com/webhelp/scr/1058.htm
-- 发布时间：2016/11/26 16:24:00
--
If Forms("通讯").Opened Then \'如果窗口已经打开
Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("通讯_Table2").FindRow(dr)
If wz >=0 Then
Tables("通讯_Table2").Position = wz
End If
End If
老师，表(DataTable)和窗口表(Table)行的显示和隐藏也能同步。
-- 发布时间：2016/11/26 16:43:00
--
同时设置主表和窗口表的Filter
Tables("订单").Filter = "第一列=\'1\'"
Tables("订单").Filter = "第一列=\'1\'"
Tables("窗口1_Table1").Filter = "第一列=\'1\'"
-- 发布时间：2016/11/26 18:17:00
--
老师，我希望主表和窗口副本表同步显示和隐藏行，同时可编辑。
此主题相关图片如下：图像 1.png
[此贴子已经被作者于2016/11/26 19:26:38编辑过]
-- 发布时间：2016/11/27 10:11:00
--
例子发上来，说明要达到的效果。
-- 发布时间：2016/11/27 19:08:00
--
老师好，下面代码怎样进一步完善。
Dim Filter As String
With e.Form.Controls("ComboBox1")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "客户供应商 = \'" & .Value & "\'"
End If
End With
If Filter > "" Then
Tables("通讯录").Filter = Filter \' 筛选对应的行
End If
Forms("通讯").Show() \'打开窗口
If Filter > "" Then
Tables("通讯_Table1").Filter = Filter \' 筛选对应的行
End If
-- 发布时间：2016/11/27 20:00:00
--
你想要怎样完善？
把 Tables("通讯_Table1").Filter 这段代码，写到各个你希望筛选的事件里去。
-- 发布时间：2016/11/27 22:46:00
--
老师，上面代码摆在那个事件里
-- 发布时间：2016/11/28 8:45:00
--
你想在什么地方进行筛选就把代码放在什么地方。正常都是在按钮里