Foxtable(狐表)用户栏目专家坐堂 → 库存问题


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

主题:库存问题

帅哥哟,离线,有人找我吗?
巷弄太过弯曲
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:219 积分:1800 威望:0 精华:0 注册:2019/2/16 10:17:00
库存问题  发帖心情 Post By:2019/11/18 15:16:00 [只看该作者]

通过老师的帮助,可以成功通过盘点机的数据增加到表控件了,现在还有一个问题不会,如图,希望第一列的列名改成物料名称,列内容是通过SQL拼接物料表的名称,这个这么修改代码呢 如66430对应物料表里面是 墨盒,希望我输入 66430第一列出现的内容是墨盒。而不是66430 

图片点击可在新窗口打开查看此主题相关图片如下:企业微信截图_20191118150652.png
图片点击可在新窗口打开查看


Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionNa me = "ce shi"
cmd.CommandText = "SE LE CT d.fname as 物料名称 " & _
" From POOrder a left join POOrderentry b on a.finterid = b.finterid " & _
" left join t_ICItem d on b.fitemid = d.fitemid "
dt = cmd.ExecuteReader()


If e.keycode = keys.enter
e.cancel = True
Dim ar() As String = e.sender.text.split(",")
If ar.length = 2 Then
Dim r As Row = Tables("窗口1_Table1").addnew
r("第一列") = ar(0)
r("第二列") = ar(1)


End If
End If

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


加好友 发短信
等级:超级版主 帖子:110544 积分:562604 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/11/18 15:20:00 [只看该作者]

这个代码放到窗口afterload事件

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionNa me = "ce shi"
cmd.CommandText = "SE LE CT d.fname as 物料名称 " & _
" From POOrder a left join POOrderentry b on a.finterid = b.finterid " & _
" left join t_ICItem d on b.fitemid = d.fitemid "
dt = cmd.ExecuteReader()
tables("窗口1_table").DataSource= dt

 回到顶部
帅哥哟,离线,有人找我吗?
巷弄太过弯曲
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:219 积分:1800 威望:0 精华:0 注册:2019/2/16 10:17:00
  发帖心情 Post By:2019/11/18 15:26:00 [只看该作者]

老师,按你的方法做了,列名是可以了,但是内容还是数字内码,是不是哪里还需要改

图片点击可在新窗口打开查看此主题相关图片如下:企业微信截图_20191118152327.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110544 积分:562604 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/11/18 16:00:00 [只看该作者]

通过find或者sqlfind查询,得到名称,然后再赋值:



 回到顶部