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

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