以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  这组代码错误何在？请不吝赐教  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=11511)
--  作者：yanzhen2010
--  发布时间：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
--  发布时间：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
--  发布时间：2011/7/31 22:40:00
--  
谢谢朋友，代码正确。学习了。
--  作者：blackzhu
--  发布时间：2011/8/1 7:37:00
--  
不是等于控件,是等于控件的值.关键是这一句:s = e.Form.Controls("ComboBox1").value