以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何从后台加载符合以下条件的数据表?  (http://foxtable.net/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
Filter
= "[客户编码] Like \'B%\'"
DataTables(
"客户").LoadFilter = Filter \'设置加载条件
DataTables(
"客户").Load() \'加载数据

 

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="客户编码"