Foxtable(狐表)用户栏目专家坐堂 → [求助] 副本 表 单元格允许编辑命令


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

主题:[求助] 副本 表 单元格允许编辑命令

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


加好友 发短信
等级:五尾狐 帖子:1029 积分:6497 威望:0 精华:0 注册:2014/1/3 12:49:00
[求助] 副本 表 单元格允许编辑命令  发帖心情 Post By:2014/12/17 16:49:00 [显示全部帖子]

我在 表A 的PrepareEdit中写有:

e.Cancel = True '禁止直接编辑该表


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


上图的表A为 副本 ;我希望当点击“业务序号”列时,允许对该列内容进行编辑;我的命令该怎么写?

是不是应该在该 副本 表的Click中写:

If e.Col.Name = "业务序号" Then

允许对该列内容进行编辑

End If

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


加好友 发短信
等级:五尾狐 帖子:1029 积分:6497 威望:0 精华:0 注册:2014/1/3 12:49:00
  发帖心情 Post By:2017/9/1 19:07:00 [显示全部帖子]

我的窗口中有一个表是【副表】,打开该窗口就弹出以下提示


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


图片点击可在新窗口打开查看此主题相关图片如下:360截图20170901190740002.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2017/9/1 19:07:54编辑过]

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


加好友 发短信
等级:五尾狐 帖子:1029 积分:6497 威望:0 精华:0 注册:2014/1/3 12:49:00
  发帖心情 Post By:2017/9/12 10:35:00 [显示全部帖子]

打开系统时提示加载某个数据表时、会提示错误。造成系统无法登陆。是什么原因?


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

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

 

如果先不加载该表,进入系统后再加载该表的话。会弹出以下提示。


图片点击可在新窗口打开查看此主题相关图片如下:360截图20170912104459973.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2017/9/12 10:45:53编辑过]

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


加好友 发短信
等级:五尾狐 帖子:1029 积分:6497 威望:0 精华:0 注册:2014/1/3 12:49:00
  发帖心情 Post By:2017/10/1 20:10:00 [显示全部帖子]

1、【电表数据汇总表维护窗口_Table1】设置为副本,同时主表【电表与设备索引表】本身是没有加载数据的。那么以下命令就无法显示存在相同值的内容。如果主表加载了有数据、那么命令就正常。我的命令该怎么修改才能确保主表本身没有加载数据的情况下、副本也能正常显示有相同值的内容?

 

【电表数据汇总表维护窗口_Table1】是【电表与设备索引表】的副本

 

Dim r As Row = Tables("电表数据汇总表").current
If  Forms("电表数据汇总表维护窗口").Opened Then
    If  r.Isnull("电表设备号") = Nothing Then
        Tables("电表数据汇总表维护窗口_Table1").FIlter = "电表编号  Like  '%" & r("电表编号") & "%'  "
            Else
    End If
End If

 

 

2、如果我想实现主表和副本在任何情况下的操作都可以同步,该怎么办?(就是感觉不到主表和副本的区别)

[此贴子已经被作者于2017/10/1 20:16:01编辑过]

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


加好友 发短信
等级:五尾狐 帖子:1029 积分:6497 威望:0 精华:0 注册:2014/1/3 12:49:00
  发帖心情 Post By:2017/10/31 20:32:00 [显示全部帖子]

打开【窗口1】的时候项目会自动关闭,不知道是什么原因

 

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


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


加好友 发短信
等级:五尾狐 帖子:1029 积分:6497 威望:0 精华:0 注册:2014/1/3 12:49:00
  发帖心情 Post By:2017/11/1 15:24:00 [显示全部帖子]

在按钮中写有新增一行的命令,在新增行前如何判断当前行如果被修改,就提示并不允许增加行

 

Tables("投诉工单清单表").AddNew()

 

 

BeforeAddDataRow中的命令该怎么写?


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


加好友 发短信
等级:五尾狐 帖子:1029 积分:6497 威望:0 精华:0 注册:2014/1/3 12:49:00
  发帖心情 Post By:2017/11/2 14:34:00 [显示全部帖子]

想做一个命令、确保某单元格被修改后;另外一个单元格也必须进行修改。如果没有进行修改就弹出提示。我的按钮命令该怎么写?

 

 

Dim r As Row = Tables("装机工单清单表").current

 

if r("客户地址") 被修改  then

if r("客户ID") 没有被修改  then

 

MessageBox.Show("【客户地址】和【客户ID】必须同时进行更改!!!")

else

end if


 回到顶部