Foxtable(狐表)用户栏目专家坐堂 → 有谁可以帮我,关于自定义录入


  共有6380人关注过本帖树形打印复制链接

主题:有谁可以帮我,关于自定义录入

帅哥哟,离线,有人找我吗?
狐狸爸爸
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/5/14 21:11:00 [显示全部帖子]

参考:
 
http://www.foxtable.com/help/topics/1928.htm

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

http://www.foxtable.com/help/topics/1268.htm
 
ChangeEdit事件改一下,以为原来是筛选,闲杂是加载:
 
If e.Col.Name = "客户ID" Then '如果编辑的是客户ID列
    If e.Col.DroppedDown Then '如果下拉窗口已经打开
        Dim tbl As DataTable = DataTables("窗口1_Table1") 
        Dim Flt AS String
        If e.Text = "" Then '如果内容为空
            flt = "" '显示所有客户
        Else '否则根据输入内容进行模糊筛选
            Dim txt As String = "'*" & e.Text & "*'"
            flt = "客户ID Like " & txt & " Or 公司名称 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt
        End If
        tbl.LoadFilter = flt
        tbl.Load()
    End If
End If
 


 回到顶部