Foxtable(狐表)用户栏目专家坐堂 → [求助]求助 动态绑定 的代码如何写


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

主题:[求助]求助 动态绑定 的代码如何写

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


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

这种情况,不应该用绑定,自己写代码,直接从列中读取值写入文本框,保存的时候,直接从文本框读取值写入列

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


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

1、在全局代码中定义一个数组:

 

Public nms() AS string  = {"第一列","第二列","第三列","第四列"}

Public idx as integer

 

2、窗口的AfterLoad事件

e.Form.Controls("控件名称").Value = Tables("表名").Current(nms(idx))

 

3、确定按钮:

 

If e.Form.Controls("控件名称").Value Is Nothing Then

     MessageBox.show("请输入值")

Else

    Tables("表名").Current(nms(idx)) = e.Form.Controls("控件名称").Value

     idx= idx + 1

     if idx = nms.Length  then 

        idx = 0

     End if

     e.Form.Controls("控件名称").Value = Tables("表名").Current(nms(idx))

End if

 

 

 

 


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


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


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


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

FileManager没有Value属性。

直接从其绑定的列取值,再写入另一个表。

 


 回到顶部