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


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

主题:[求助]代码求助

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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/3/1 11:28:00 [显示全部帖子]

这是不可能的,这样的代码,对窗口输入有效的。

注意: 合计金额必须是数据列,不能是表达式列。


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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/3/1 14:54:00 [显示全部帖子]

荒料出库表没有窗口啊?

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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/3/1 16:22:00 [显示全部帖子]

窗口名是什么?也就是说是哪一个窗口啊?

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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/3/1 16:55:00 [显示全部帖子]

因为你这个表的合计金额框,绑定的字段是:荒料入库.合计金额

 

应该绑定到:荒料出库.合计金额


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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/3/2 10:36:00 [显示全部帖子]


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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/3/2 10:49:00 [显示全部帖子]

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

另一个问题看看:

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

 


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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望: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

 


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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望: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()

 

 

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


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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/3/2 15:56:00 [显示全部帖子]


 回到顶部