以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  查询新增  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=43691)
--  作者：良才
--  发布时间：2013/12/12 22:27:00
--  查询新增

窗口1ComboBox新增,当选择姓名自动从表A查询,如果表A没有此人，查询不到自动新增一行。请指教

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.zip
--  作者：有点甜
--  发布时间：2013/12/12 22:44:00
--  

[此贴子已经被作者于2013-12-12 22:44:39编辑过]
--  作者：有点甜
--  发布时间：2013/12/12 22:53:00
--  
 valuechange事件的代码改成下面这样

Dim dt As DataTable = e.Form.Controls("Table1").Table.DataTable
Dim name As String = e.Form.Controls("姓名").text
If dt.Find("姓名 = \'" & name & "\'") Is Nothing Then
    Dim dr As DataRow = dt.AddNew
    dr("姓名") = name
End If

Dim Filter As String
With e.Form.Controls("姓名")
    If .Value IsNot Nothing Then
        Filter = "姓名 = \'" & .Value & "\'"
    End If
End With
If Filter > "" Then
    Tables("表A").Filter = Filter
End If
--  作者：良才
--  发布时间：2013/12/13 8:34:00
--  

谢谢