Foxtable(狐表)用户栏目专家坐堂 → [求助]代码求助


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

主题:[求助]代码求助

帅哥哟,离线,有人找我吗?
狐狸爸爸
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47449 积分:251065 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/3/2 10:36:00 [只看该作者]


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


加好友 发短信
等级:婴狐 帖子:90 积分:635 威望:0 精华:0 注册:2012/2/6 9:52:00
  发帖心情 Post By:2012/3/2 10:42:00 [只看该作者]

哦,发现不应该写在afteredit里=。=自己搞定了

不过还有个问题请教狐爸,我现在窗口绑定表了,如何让每次预览时显示的是空的数据?

而且我在预览时即使不保存,填在控件里的数据也会保存到表中,请问这个该如何解决?


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


加好友 发短信
等级:管理员 帖子:47449 积分:251065 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/3/2 10:49:00 [只看该作者]

绑定了肯定就会显示当前行的数据,这是没有办法的。

另一个问题看看:

http://www.foxtable.com/help/topics/2263.htm

 


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


加好友 发短信
等级:婴狐 帖子:90 积分:635 威望:0 精华:0 注册:2012/2/6 9:52:00
  发帖心情 Post By:2012/3/2 10:54:00 [只看该作者]

好的。这样做也不错,比我本来想的只用录入窗口简单了不少。多谢狐爸


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


加好友 发短信
等级:婴狐 帖子:90 积分:635 威望:0 精华:0 注册:2012/2/6 9:52:00
  发帖心情 Post By:2012/3/2 11:35:00 [只看该作者]

狐爸,还有个问题,如果我要设置某个控件为必填项,否则不能保存的话,还是写在保存BUTTON里么?

还有如果我需要在保存出库单时,先在入库单里搜到相应的编号,否则不能保存的话,有没有相应的案例?


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


加好友 发短信
等级:管理员 帖子:47449 积分:251065 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/3/2 11:40:00 [只看该作者]

1、如果是传统编辑模式,代码写在Button中。

2、一样在Button中验证,代码很简单,大概:

 

if DataTables("入库表").Find("编号 = '" &  Tables("出库").Current("编号") & “’”) Is Nothing Then

    MessageBox.Show("不存在对应的入库编号")

    return

Else

    '原来的保存代码

End if

 


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


加好友 发短信
等级:婴狐 帖子:90 积分:635 威望:0 精华:0 注册:2012/2/6 9:52:00
  发帖心情 Post By:2012/3/2 11:56:00 [只看该作者]

狐大,还有个问题-。-

本来我想做成录入和修改是分开的,这样可以避免随便修改入库或出库的内容

请问传统编辑模式下可否判断新增或修改,从而在修改时对某些控件禁止编辑


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


加好友 发短信
等级:婴狐 帖子:90 积分:635 威望:0 精华:0 注册:2012/2/6 9:52:00
  发帖心情 Post By:2012/3/2 15:33:00 [只看该作者]

狐爸狐爸,呼叫狐爸

If e.Form.Controls("textbox6").Value Is Nothing Then
     messagebox.Show("请输入规格_高!")
Return
Else If e.Form.Controls("datetimepicker1").Value Is Nothing Then
     e.Form.controls("datetimepicker1").value=Date.Today
Return
Else
Tables("荒料入库").Current.Save()
End If
现在自动输入日期后不保存了-0-请问该如何改代码

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


加好友 发短信
等级:管理员 帖子:47449 积分:251065 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/3/2 15:40:00 [只看该作者]

If e.Form.Controls("textbox6").Value Is Nothing Then
    messagebox.Show("请输入规格_高!")
    Return
Else If e.Form.Controls("datetimepicker1").Value Is Nothing Then
    e.Form.controls("datetimepicker1").value=Date.Today
End If
Tables("荒料入库").Current.Save()

 

 

提示: 不同的问题,最好分别发帖提问,不要跟在同一个帖子的后面。


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


加好友 发短信
等级:婴狐 帖子:90 积分:635 威望:0 精华:0 注册:2012/2/6 9:52:00
  发帖心情 Post By:2012/3/2 15:48:00 [只看该作者]

好的,狐爸最后再帮我看看17楼的问题吧

 回到顶部
总数 21 上一页 1 2 3 下一页