| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 如何从后台加载符合以下条件的数据表？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170162) |
| -- 作者：jswjyjf -- 发布时间：2021/7/14 12:32:00 -- 如何从后台加载符合以下条件的数据表？ 我有个数据库，里面有个表，名称为客户，有个客户编码字段，内容为A-0001，A-0002,B-0001,B-0002 ，我想加载编码开头为b的数据，如何写代码？ 谢谢
|
| -- 作者：cd_tdh -- 发布时间：2021/7/14 12:50:00 -- Dim Filter As String
http://www.foxtable.com/webhelp/topics/0102.htm http://www.foxtable.com/webhelp/topics/2918.htm [此贴子已经被作者于2021/7/14 12:51:51编辑过]
|
| -- 作者：jswjyjf -- 发布时间：2021/7/14 17:30:00 -- 如果B是变量 怎么写 |
| -- 作者：jswjyjf -- 发布时间：2021/7/14 17:34:00 -- 会了 谢谢 Dim Filter As String Dim ztbm As String=_userztbm Filter = "[客户编码] Like \'" & ztbm & "%\'" msgbox(filter) DataTables("客户").LoadFilter = Filter \'设置加载条件 DataTables("客户").Load() \'加载数据 \'Tables("客户").ExtendLastCol=500 Tables("客户").sort="客户编码" |