- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 窗口录入代码问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=97121)
-- 发布时间：2017/3/6 16:22:00
-- 窗口录入代码问题
此主题相关图片如下：qq截图20170306160830.png
各位老师，我想实现：
一、点确定按钮，合同表中自动增加一行，相应的内容自动填入相应的列中；同时，各个内容不清空。
二、合同编号，我录入01001时，在填入合同表时，变成：采购-2017-xyfl-01001;
三、在窗口录入时，供应商编码和供应商名称都绑定了供应商信息表，当输入供应商编码时，供应商名称自动出现，当输入供应商名称时，供应商编码也自动出现。
四、在窗口录入时，商品编码和商品名称都绑定了商品信息表，当输入商品编码时，商品名称自动出现，商品名称属性为只读。
请各位老师帮忙！
-- 发布时间：2017/3/6 16:26:00
--
上传实例。
不然参考 http://www.foxtable.com/webhelp/scr/2263.htm
-- 发布时间：2017/3/6 16:48:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:实例.rar |
请有点色老师帮忙。
-- 发布时间：2017/3/6 16:53:00
--
有点色老师，所有的表都是外部数据源的外部表。
-- 发布时间：2017/3/6 17:27:00
--
如下
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:实例.table |
-- 发布时间：2017/3/7 6:48:00
--
非常感谢有点色老师 。
-- 发布时间：2017/3/7 16:10:00
--
有点色老师，我的按钮编码是这样的：
Dim dt As DataTable = DataTables("返利合同")
Dim dt1 As DataTable = DataTables("供应商信息")
Dim dt2 As DataTable = DataTables("商品信息")
Dim ndr As DataRow = dt.AddNew
ndr("项目") = e.Form.Controls("ComboBox项目").Text
Dim bh As String = "采购-" & Date.Today.Year & "-XYFL-"
ndr("合同编号") = bh & e.Form.Controls("TextBox合同编号").Text
ndr("合同单位") = e.Form.Controls("TextBox合同单位").Text
ndr("返利单位") = e.Form.Controls("TextBox返利单位").Text
ndr("供应商编码") = e.Form.Controls("ComboBox供应商编码").Text
ndr("客户编码") = e.Form.Controls("ComboBox客户编码").Text
ndr("返利方式") = e.Form.Controls("ComboBox返利方式").Text
ndr("商品编码") = e.Form.Controls("TextBox商品编码").Text
ndr("标价") = e.Form.Controls("TextBox标价").Text
ndr("进价") = e.Form.Controls("TextBox进价").Text
ndr("返利单价") = e.Form.Controls("TextBox返利单价").Text
ndr("返利期限") = e.Form.Controls("ComboBox返利期限").Text
ndr("合同开始日期") = e.Form.Controls("DateTimePicker1").Text
ndr("合同结束日期") = e.Form.Controls("DateTimePicker2").Text
ndr("备注") = e.Form.Controls("TextBox备注").Text
ndr("返利类型") = e.Form.Controls("ComboBox返利类型").Text
e.Form.Controls("TextBox商品编码").Text=""
我想实现，点确定按钮后，光标自动定位到增加的那一行上，代码怎么改。请有点色老师帮忙。
-- 发布时间：2017/3/7 17:55:00
--
把 Dim ndr As DataRow = dt.AddNew
改成 Dim ndr As Row = Tables("返利合同").AddNew
-- 发布时间：2017/3/8 7:56:00
--
谢谢有点色老师。
-- 发布时间：2017/3/8 8:10:00
--
有点色老师，我想点确定后，光标自动定位到，ComboBox项目，这个控件上，上述代码怎么改。麻烦有点色老师。