Foxtable(狐表)用户栏目专家坐堂 → 在afterload里用代码无法写入数据?


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

主题:在afterload里用代码无法写入数据?

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


加好友 发短信
等级:幼狐 帖子:190 积分:1445 威望:0 精华:0 注册:2011/6/17 6:33:00
在afterload里用代码无法写入数据?  发帖心情 Post By:2011/11/30 15:44:00 [只看该作者]

我想在新建一条内容的时候,自动录入一些数据

 

在afterload里,向绑定字段的控件写入数据直接报错。用按钮就OK的

 

Dim GP As WinForm.TextBox = e.Form.Controls("TextBox1")
GP.text = "测试测试"

 

 

应该是程序限制吧?那要怎么做到可以自动录入呢。

 

 

 

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

[此贴子已经被作者于2011-11-30 16:11:52编辑过]

 回到顶部
帅哥,在线噢!
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/11/30 16:12:00 [只看该作者]

Dim GP As WinForm.TextBox = e.Form.Controls("TextBox1")
GP.Value = "测试测试"

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


加好友 发短信
等级:幼狐 帖子:190 积分:1445 威望:0 精华:0 注册:2011/6/17 6:33:00
  发帖心情 Post By:2011/12/1 12:57:00 [只看该作者]

经测试,如果文本框没有绑定字段的话,用VALUE没有问题

 

但是一旦绑定了字段,AFTERLOAD后,文本框就是空的

 

 

如果用TEXT的话,就报错


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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33963 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2011/12/1 13:08:00 [只看该作者]

如果还不行换个方法呀。

既然已经绑定到字段,打开窗口时直接向字段写入数据就行了。


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


加好友 发短信
等级:幼狐 帖子:190 积分:1445 威望:0 精华:0 注册:2011/6/17 6:33:00
  发帖心情 Post By:2011/12/1 13:34:00 [只看该作者]

我就是想自动写入一些数据嘛

 

登录后,在窗口里新建一条数据时,会自动填入 人员和所属部门

 

因为要根据所属部门列出一些内容,所以要打开的时候填入,而不是在填写完成后再自动填入


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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33963 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2011/12/1 13:43:00 [只看该作者]

既然是绑定到字段,生成窗口时肯定是读取了绑定字段的数据。

要实现你的要求方法有很多,不过你的示例并没有体现出楼上提到相关的功能,做个像样点的例子,相信很快就能解决。


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


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2011/12/1 13:48:00 [只看该作者]

不会吧,还有这样的做法,文本框要么绑定,要么不绑定.绑定的话直接输入.

不绑定的做法,就是先输入一个数据,用按钮输入,或者直接在控件事件中设置输入数据.代码就是:

 

Dim GP As WinForm.TextBox = e.Form.Controls("TextBox1").Value

dim r as row =tables("表A").Addnew

人("第一列")= gp


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


加好友 发短信
等级:幼狐 帖子:190 积分:1445 威望:0 精华:0 注册:2011/6/17 6:33:00
  发帖心情 Post By:2011/12/1 14:01:00 [只看该作者]

楼上搞的我莫名了。。登录什么的没必要再做例子了吧

 

我就是想 在录入数据之前,自动写入登录的用户名和部门,我想到的就是用afterload实现,现在是报错无法实现(就是随便写入一些数据)

 

 

我想知道的:

1,afterload是否无法写入已经绑定字段的文本框?这条路是不是已经封死了(文本框绑定了字段的)

 

2,我有什么办法可以实现:在窗口中,输入数据前,自动写入一些数据?

 

苦恼~~~感谢

[此贴子已经被作者于2011-12-1 14:02:50编辑过]

 回到顶部
帅哥,在线噢!
狐狸爸爸
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/12/1 14:12:00 [只看该作者]

 

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


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


加好友 发短信
等级:幼狐 帖子:190 积分:1445 威望:0 精华:0 注册:2011/6/17 6:33:00
  发帖心情 Post By:2011/12/1 14:26:00 [只看该作者]

Tables("运维项目").Current("经办班组") = _usergroup

 

直接往表中写入数据~~这个可以有~~~

 

十分谢谢狐狸爸爸~

[此贴子已经被作者于2011-12-1 14:26:53编辑过]

 回到顶部
总数 11 1 2 下一页