Foxtable(狐表)用户栏目专家坐堂 → 这组代码错误何在?请不吝赐教


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

主题:这组代码错误何在?请不吝赐教

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


加好友 发短信
等级:童狐 帖子:212 积分:1564 威望:0 精华:0 注册:2011/7/20 21:00:00
这组代码错误何在?请不吝赐教  发帖心情 Post By:2011/7/31 22:15:00 [只看该作者]

Dim Nu As String=CurrentTable.Current("编号")
Dim cm1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim drs As List(Of DataRow)
drs = DataTables("长期医嘱").Select("[编号] >='Nu'")
For Each dr As DataRow In drs
    dr("住院号") = cm1
Next

 

[编号] 为字符型,ComboBox1为窗口住院号列表项目框,目的:将“编号”大于当前行“编号”的住院号统一设置为ComboBox1中选择的“住院号”。

[此贴子已经被作者于2011-7-31 22:21:17编辑过]

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


加好友 发短信
等级:八尾狐 帖子:1812 积分:12993 威望:0 精华:14 注册:2008/10/11 18:07:00
  发帖心情 Post By:2011/7/31 22:34:00 [只看该作者]

Dim Nu ,s As String
nu =CurrentTable.Current("编号")
s = e.Form.Controls("ComboBox1").value
Dim drs As List(Of DataRow)
drs = DataTables("长期医嘱").Select("[编号] >='" & Nu &"'")
For Each dr As DataRow In drs
    dr("住院号") = s
Next

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


加好友 发短信
等级:童狐 帖子:212 积分:1564 威望:0 精华:0 注册:2011/7/20 21:00:00
  发帖心情 Post By:2011/7/31 22:40:00 [只看该作者]

谢谢朋友,代码正确。学习了。

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


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

不是等于控件,是等于控件的值.关键是这一句:s = e.Form.Controls("ComboBox1").value

 回到顶部