以下代码怎么修改？请指教！！！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

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

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