主题：以下代码怎么修改？ 请指教！！！

以下代码怎么修改？ 请指教！！！

 

e.Form.Controls("设密码").Visible = False

Dim xm As WinForm.ComboBox = e.Form.Controls("项目")
Dim jsmc As WinForm.ComboBox = e.Form.Controls("竞赛名称")
Dim str As String = CurrentTable.name
Dim dr  As  DataRow = DataTables("项目表").Find ("竞赛名称 = '"& jsmc.text &"'  and  比赛项目 = '"& xm.text &"'  and  引用表格 = 'str'")

DataTables("项目表").AllowEdit = True
dr("裁判长密码") =  e.Form.Controls("设密码").text
DataTables("项目表").AllowEdit = False

 

错误提示：

此主题相关图片如下：({xa8vs1~z3l%jwd_a0yj.jpg

e.Form.Controls("设密码").Visible = False
Dim xm As WinForm.ComboBox = e.Form.Controls("项目")
Dim jsmc As WinForm.ComboBox = e.Form.Controls("竞赛名称")
Dim str As String = CurrentTable.name
Dim dr  As  DataRow = DataTables("项目表").Find ("竞赛名称 = '"& jsmc.text &"'  and  比赛项目 = '"& xm.text &"'  and  引用表格 = 'str'")
If dr IsNot Nothing Then
    DataTables("项目表").AllowEdit = True
    dr("裁判长密码") =  e.Form.Controls("设密码").text
    DataTables("项目表").AllowEdit = False
End If

参考：

http://www.foxtable.com/help/topics/2044.htm

 

 谢谢指教！！！

修改代码后不再提示错误，但是数据没有被写入对应的表的列中。

请指教！！！

 

 dr("裁判长密码") = e.Form.Controls("设密码").text  是不是这句代码有问题？！

Dim str As String = CurrentTable.name
经过反复测试，是上句代码没有按所想执行，也就是 str 没有被正确引用。

 

但是我已经设置了当前表

e.Form.Controls("设密码").Visible = False
Dim xm As WinForm.ComboBox = e.Form.Controls("项目")
Dim jsmc As WinForm.ComboBox = e.Form.Controls("竞赛名称")
Dim str As String = CurrentTable.name
Dim dr  As  DataRow = DataTables("项目表").Find ("竞赛名称 = '"& jsmc.text &"'  and  比赛项目 = '"& xm.text &"'  and  引用表格 = 'str'")
If dr IsNot Nothing Then
   Messagebox.show("找到了")
    DataTables("项目表").AllowEdit = True
    dr("裁判长密码") =  e.Form.Controls("设密码").text
    DataTables("项目表").AllowEdit = False
Else
   Messagebox.show("没有找到符合条件的行")
End If

能否用代码将TextBox（文本框）绑定到单元格。