Foxtable(狐表)用户栏目专家坐堂 → [求助]狐爸,请进


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

主题:[求助]狐爸,请进

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


加好友 发短信
等级:三尾狐 帖子:668 积分:8555 威望:0 精华:0 注册:2011/5/5 23:55:00
[求助]狐爸,请进  发帖心情 Post By:2012/6/29 2:03:00 [只看该作者]

      请问狐爸,我这代码哪里出错了?

 

For Each nm As Windows.Forms.Control In Forms("订单管理").Controls("Panel3").basecontrol.controls
If typeof nm Is Windows.Forms.TextBox Then
Dim c As Windows.Forms.TextBox = nm
c.Text = e.Table.Current(c.name)
End If
Next

 

提示一下错误:

 

 


图片点击可在新窗口打开查看此主题相关图片如下:未命名.jpg
图片点击可在新窗口打开查看

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


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57590 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2012/6/29 7:16:00 [只看该作者]

你这个代码写的 真是,不做解释.

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


加好友 发短信 一级勋章
等级:超级版主 帖子:7235 积分:40574 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2012/6/29 7:32:00 [只看该作者]

路过!

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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/6/29 8:51:00 [只看该作者]

c.Text = e.Table.Current(c.name)

 

改为:

 

c.Value = e.Table.Current(c.name)


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


加好友 发短信
等级:三尾狐 帖子:668 积分:8555 威望:0 精华:0 注册:2011/5/5 23:55:00
  发帖心情 Post By:2012/6/29 10:36:00 [只看该作者]

以下是引用狐狸爸爸在2012-6-29 8:51:00的发言:

c.Text = e.Table.Current(c.name)

 

改为:

 

c.Value = e.Table.Current(c.name)

 

狐爸,改了后,按确定就提示

 


图片点击可在新窗口打开查看此主题相关图片如下:未命名.jpg
图片点击可在新窗口打开查看


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


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

For Each nm As WinForm.Control In e.Form.Controls
    If typeof nm Is Winform.TextBox
        Dim c As Winform.TextBox = nm
        c.value = Tables("表A").Current(c.name)
    End If
Next

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


加好友 发短信
等级:三尾狐 帖子:668 积分:8555 威望:0 精华:0 注册:2011/5/5 23:55:00
  发帖心情 Post By:2012/6/29 10:49:00 [只看该作者]

以下是引用狐狸爸爸在2012-6-29 10:47:00的发言:
For Each nm As WinForm.Control In e.Form.Controls
    If typeof nm Is Winform.TextBox
        Dim c As Winform.TextBox = nm
        c.value = Tables("表A").Current(c.name)
    End If
Next

狐爸,我是想知判断 Panel3 控件里面的控件,而不是全部控件


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


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

For Each nm As WinForm.Control In e.Form.Controls("Panel3").Children
    If typeof nm Is Winform.TextBox
        Dim c As Winform.TextBox = nm
        c.value = Tables("表A").Current(c.name)
    End If
Next

 回到顶部