- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助] (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=27393)
-- 发布时间：2012/12/30 12:10:00
-- [求助]
在窗口combobox控件中输入编号，让("雷鸟成绩记录表")编号相同的行为当前行，以便于编辑该行。
以下代码错在何处？请专家指点！
Dim bh As WinForm.ComboBox = e.Form.Controls("编号")
Dim dr As DataRow
dr = DataTables("雷鸟成绩记录表").Find("编号 = \'" & bh.Text & "\'",True)
If dr IsNot Nothing Then
Dim wz As Integer = Tables("雷鸟成绩记录表").FindRow(dr)
If wz >= 0 Then
Tables("雷鸟成绩记录表").Position = wz
End If
End If
-- 发布时间：2012/12/30 12:18:00
--
有什么错误提示吗？
-- 发布时间：2012/12/30 12:33:00
--
-- 发布时间：2012/12/30 12:34:00
--
此主题相关图片如下：7afv9_g6(6po6r1bmv4tjz3.jpg
-- 发布时间：2012/12/30 12:47:00
--
dr = DataTables("雷鸟成绩记录表").Find("编号 = \'" & bh.Text & "\'",True)
改为：
dr = DataTables("雷鸟成绩记录表").Find("编号 = \'" & bh.Value & "\'")
试试
-- 发布时间：2012/12/30 15:19:00
--
ok！谢谢！！！