Foxtable(狐表)用户栏目专家坐堂 → 不会描述,直接做个例子吧


  共有1997人关注过本帖树形打印复制链接

主题:不会描述,直接做个例子吧

帅哥哟,离线,有人找我吗?
deliangzhaoe
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:364 积分:3491 威望:0 精华:0 注册:2012/7/24 7:15:00
不会描述,直接做个例子吧  发帖心情 Post By:2018/4/18 18:31:00 [只看该作者]

有这样一个窗口1:页面集合中有7个页面7个表(表1,表2,3,4,5,6,7),表中有几个列名相同的列:第一列、第二列、第三列、添加维保记录,点击“添加维保记录‘时打开窗口2,窗口2中的表A要筛选出当前表(1或2,3,4,5,6,7)当前行中与第一列、第二列、第三列内容相同的行,点击”新增一行“时,表A新增一行,并复制窗口1中当前表当前行第一列、第二列、第三列、第四列的内容。
求窗口2  afterload的代码,按钮”新增一行“的代码。
谢谢
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb



 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/18 18:41:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb


 回到顶部
帅哥哟,离线,有人找我吗?
deliangzhaoe
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:364 积分:3491 威望:0 精华:0 注册:2012/7/24 7:15:00
  发帖心情 Post By:2018/4/18 20:26:00 [只看该作者]

老师,报错了,两段代码都报错:

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20180418201946.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20180418202024.jpg
图片点击可在新窗口打开查看

Dim r As Row = vars("表").current,还用设置全局变量吗?
窗口1中有七个页签七个表,每个表中都有”添加维保记录“这一列,点击该列都能打开窗口2
afterload:
Dim r As Row = vars("表").current
Dim t As Table = e.Form.controls("新增安全设施维保记录_table1").Table
t.filter = "企业名称 =  '" & r("企业名称") & " ' and  设施名称 like '*" & r("设施名称") & "*' And 设施编号 like '*"& r("设施编号") & " * '"
With Tables("新增安全设施维保记录_table1")
    .Position = .Rows.Count - 1
End With

新增一行:
Dim r As Row = vars("表").current
Dim t As Table = e.Form.controls("新增安全设施维保记录_table1").Table
Dim nr As Row = t.addnew
nr("企业名称") = r("企业名称")
nr("设施类别") = r("设施类别")
nr("设施名称") = r("设施名称")
nr("规格型号") = r("规格型号")
nr("设施编号") = r("设施编号")
nr("使用部门") = r("使用部门")
nr("使用位置") = r("使用位置")

[此贴子已经被作者于2018/4/18 20:28:43编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/18 20:29:00 [只看该作者]

你用例子是否正常?去看看 CellButtonClick 事件的代码。

 回到顶部
帅哥哟,离线,有人找我吗?
deliangzhaoe
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:364 积分:3491 威望:0 精华:0 注册:2012/7/24 7:15:00
  发帖心情 Post By:2018/4/18 20:30:00 [只看该作者]

我看到了


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/18 20:32:00 [只看该作者]

以下是引用deliangzhaoe在2018/4/18 20:30:00的发言:
我看到了

 

如果还有问题,上传具体实例测试。


 回到顶部