主题：[求助]关于在窗口添加数据问题，请老师指教！

不是很明白你的意思。

如果想增加编号的时候，判断判断输入的编号是否存在，如果存在则提示，不存在则添加，可以将按钮代码改为：

Dim v  As string = e.Form.Controls(" 编号输入框").Value

If v > "" Then

    Dim dr As DataRow = DataTables("xxx").Find("编号 = '" & V & "'")

    If dr Is Nothing Then

           dr = DataTables("xxx").AddNew()

           dr("编号") = v

    Else

           MessageBox.Show("编号已经存在")

    End If

End If

换个说法，就是如何获得窗口Table对应的DataTable，你可以看看：

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

不是高人不高人，是你代码中的窗口名或Table空间名错了。

自己搞不定的的话，就做个例子发上来，一分钟就知道原因。

Dim ids As String

For Each dr As DataRow In DataTables("申报登记表").DataRows

   dim id as string = dr("编号")

   if datatables("结算表").Find("编号 = '" & id & "'") Is Nothing Then
          ids = ids & ",‘" & dr(“编号") & "'"  

   end if
Next
ids = ids.trim(",")
Tables(”窗口1_Table1“).Filter = "编号 In (" & ids & ")"