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


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

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

帅哥哟,离线,有人找我吗?
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编辑过]

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


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

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

 回到顶部