窗口录入代码问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20170306160830.png

各位老师，我想实现：

一、点确定按钮，合同表中自动增加一行，相应的内容自动填入相应的列中；同时，各个内容不清空。

二、合同编号，我录入01001时，在填入合同表时，变成：采购-2017-xyfl-01001;

三、在窗口录入时，供应商编码和供应商名称都绑定了供应商信息表，当输入供应商编码时，供应商名称自动出现，当输入供应商名称时，供应商编码也自动出现。

四、在窗口录入时，商品编码和商品名称都绑定了商品信息表，当输入商品编码时，商品名称自动出现，商品名称属性为只读。

请各位老师帮忙！

上传实例。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:实例.rar

请有点色老师帮忙。

有点色老师，所有的表都是外部数据源的外部表。

如下

下载信息 [文件大小：下载次数： ]
点击浏览该文件:实例.table

非常感谢有点色老师。

有点色老师，我的按钮编码是这样的：

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=""

我想实现，点确定按钮后，光标自动定位到增加的那一行上，代码怎么改。请有点色老师帮忙。

把 Dim ndr As DataRow = dt.AddNew

改成 Dim ndr As Row = Tables("返利合同").AddNew

谢谢有点色老师。

有点色老师，我想点确定后，光标自动定位到，ComboBox项目，这个控件上，上述代码怎么改。麻烦有点色老师。

主题：窗口录入代码问题