以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]求加载数据表的代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=20328)
--  作者：曈飞双燕
--  发布时间：2012/6/5 10:19:00
--  [求助]求加载数据表的代码

“窗口1”有TEXTBOX1T和TEXTBOX2及按钮1，当单击按钮1 时加载“入库”表中符合以下条件的数据：

编号列的左边的位数（TEXTBOX2)等于TEXTBOX1的数据。

如：编号列有450208、45020806、45，TEXTBOX1=6，TEXTBOX2=450208，需加载的是450208和45020806

如何用代码写，我是这样写的，但不行

Dim C2 As WinForm.TextBox
Dim C1 As WinForm.TextBox
C1 = e.Form.Controls("TextBox1")
C2 = e.Form.Controls("TextBox2")
  DataTables("入库").LoadFilter  = "SubString([编号],0,& C1.Value &=\'" & C2.Value & "\'"
     DataTables("入库").Load()
--  作者：狐狸爸爸
--  发布时间：2012/6/5 17:03:00
--  

如果编号是字符型：

 

Dim C2 As WinForm.TextBox
C2 = e.Form.Controls("TextBox2")
DataTables("入库").LoadFilter = "编号 Like ‘" & c2.Value & "%\'"
DataTables("入库").Load()