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

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

错误提示：

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 没有被正确引用。

但是我已经设置了当前表