- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 库存问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=143239)
-- 发布时间：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
-- 发布时间：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
-- 发布时间：2019/11/18 15:26:00
--
老师，按你的方法做了，列名是可以了，但是内容还是数字内码，是不是哪里还需要改
此主题相关图片如下：企业微信截图_20191118152327.png
-- 发布时间：2019/11/18 16:00:00
--
通过find或者sqlfind查询，得到名称，然后再赋值：