主题：自定义项目能做判断是否存在吗？

肯定可以的，来个示例文件吧，或将窗口模板传上来看看。

改成这样看看。

Dim xm As DataRow  = DataTables("项目表").Find("项目代码 = '" & e.Form.Controls("combobox1").text.SubString(0,4) & "'")
If xm Is Nothing Then
    e.Form.Controls("combobox1").value = ""
    e.Form.Controls("ComboBox1").Select()
else
    Dim Multi As string = e.Form.Controls("combobox1").text
    Dim Values as String()
    Values = Multi.split(" ")
    dim ss1 as string = (Values(1))
    Tables("pzbj").Current("项目") = ss1
    e.form.Close()
end if

测试一下四楼的代码，看看能不能解决？

我都被T了n小时了，一直上不来。