- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 取值问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102484)
-- 发布时间：2017/6/20 18:17:00
-- 取值问题
您好,我想根据合同号给供应商名称赋值,目前数据库是没有数据的,我在添加入库记录的时候
想在输入完合同号之后,系统可以根据输入的合同号自动填充供应商,请问怎么做呢?
我这么写完全不行,我也知道,因为hth的值是空的,请问有什么思路吗?
Dim hth As String = e.Form.Controls("TextBox2").value
Dim gys As String = e.Form.Controls("TextBox8").value
If hth.Contains("B12") Then
gys = "北京公司"
Else
If hth.Contains("D12") Then
gys = "新公司"
Else
gys = "杭州公司"
End If
End If
此主题相关图片如下：1.png
此主题相关图片如下：2.png
-- 发布时间：2017/6/20 20:10:00
--
Dim hth As String = e.Form.Controls("TextBox2").value
Dim gys As String
If hth.Contains("B12") Then
gys = "北京公司"
Else
If hth.Contains("D12") Then
gys = "新公司"
Else
gys = "杭州公司"
End If
End If
e.Form.Controls("TextBox8").value = gys
-- 发布时间：2017/6/21 13:53:00
-- 代码错误!报错语法错误!!!
代码有错误吗?
此主题相关图片如下：1.png
此主题相关图片如下：2.png
-- 发布时间：2017/6/21 14:07:00
--
如何操作后出错？你TextBox4其它事件写有代码吗？
具体例子发上来测试。
-- 发布时间：2017/6/21 14:25:00
-- 例子
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:模仿仓库条码管理系统.rar |
-- 发布时间：2017/6/21 14:46:00
--
改一下
cmd.CommandText="insert into {入库表}(id,入库日期,入库单号,采购合同号,仓库地点,产品线,库存类型,仓库属性,项目名称,供应商名称,备注) values (" & id & ",\'" & rkdt & "\',\'" & dh & "\',\'" & hth & "\',\'" & ckdd & "\',\'" & cpx & "\',\'" & kclx & "\',\'" & cksx & "\',\'" & xmmc & "\',\'" & gys & "\',\'" & bz & "\')"