Foxtable(狐表)用户栏目专家坐堂 → [求助]求加载数据表的代码


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

主题:[求助]求加载数据表的代码

帅哥哟,离线,有人找我吗?
曈飞双燕
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:17 积分:268 威望:0 精华:0 注册:2012/3/7 11:16:00
[求助]求加载数据表的代码  发帖心情 Post By: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()


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/6/5 17:03:00 [只看该作者]

如果编号是字符型:

 

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


 回到顶部