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

最左边的是行号。

我现在想实现的是在第一个表中增加一行，序号手动输入为85，增加完后在总表中增加的一行，序号自动为644。

现在这个实现的是在个表中输入85，总表中不管最后一行序号是多少，也跟着是85了，不想要这样结果。

也就是个表中在序号列手工输入序号，总表中序号列序号自动为最后一个序号+1

不知道我描述清楚没有？

r2("序号") = DataTables("各水厂").Compute("max(序号)") + 1

问题解决，如下：

1、在个表中建立窗口控件，代码如下：

Dim r1 As Row = Tables("道义").AddNew()

Dim r2 As Row = Tables("各水厂").AddNew()

r1("序号") = e.Form.Controls("TextBox1").Value

r1("车牌号") = e.Form.Controls("TextBox2").Value

r1("司机") = e.Form.Controls("TextBox3").Value

r1("日期") = e.Form.Controls("TextBox4").Value

r1("时间") = e.Form.Controls("TextBox5").Value

r1("车身重量") = e.Form.Controls("TextBox6").Value

r1("车皮重量") = e.Form.Controls("TextBox7").Value

r1("货物重量") = e.Form.Controls("TextBox8").Value

r1("地点") = e.Form.Controls("TextBox9").Value

r1("备注") = e.Form.Controls("TextBox10").Value

r2("车牌号") = e.Form.Controls("TextBox2").Value

r2("司机") = e.Form.Controls("TextBox3").Value

r2("日期") = e.Form.Controls("TextBox4").Value

r2("时间") = e.Form.Controls("TextBox5").Value

r2("车身重量") = e.Form.Controls("TextBox6").Value

r2("车皮重量") = e.Form.Controls("TextBox7").Value

r2("货物重量") = e.Form.Controls("TextBox8").Value

r2("地点") = e.Form.Controls("TextBox9").Value

r2("备注") = e.Form.Controls("TextBox10").Value

2、在总表中，选中表属性，在DataRowAdded事件中输入以下代码：

Dim idx As Integer = Tables("各水厂").FindRow(e.DataRow)

If idx > -1 Then

e.DataRow("序号") = idx + 1

End If

在此感谢：

1、fagg在2011年5月18日发表的主题为“如何制作：在A表增加一行时，那么B表中自动增加一行？”的帖子（链接地址：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=10010）；

2、czgtiger在2015年6月4日发表的主题为“[求助]子表如何自动增加序号”（链接地址：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=69418）；

3、狐狸爸爸、大红袍；

4、有点蓝版主。

实例如下：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.table

[此贴子已经被作者于2020/3/12 11:38:01编辑过]

感谢有点蓝版主，把你的代码加入我的代码中，也可实现我想要的效果。

谢谢~~~

现在我把地点变为可以选择项，想实现点选哪个地点就眺到哪个地点所属的表中进行数据录入（如下图）。

不知道如何进行编写代码？

此主题相关图片如下：地点选择.jpg

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.table

Dim dd As String = e.Form.Controls("ComboBox1").Value

If dd > "" Then

Dim r1 As Row = Tables(dd).AddNew()

Dim r2 As Row = Tables("各水厂").AddNew()

r1("序号") = DataTables(dd).Compute("max(序号)") + 1

r1("车牌号") = e.Form.Controls("TextBox1").Value

r1("司机") = e.Form.Controls("TextBox2").Value

r1("日期") = e.Form.Controls("TextBox3").Value

r1("时间") = e.Form.Controls("TextBox4").Value

r1("车身重量") = e.Form.Controls("TextBox5").Value

r1("车皮重量") = e.Form.Controls("TextBox6").Value

r1("货物重量") = e.Form.Controls("TextBox7").Value

r1("地点") = e.Form.Controls("ComboBox1").Value

r1("备注") = e.Form.Controls("TextBox8").Value

r2("序号") = DataTables("各水厂").Compute("max(序号)") + 1

r2("车牌号") = e.Form.Controls("TextBox1").Value

r2("司机") = e.Form.Controls("TextBox2").Value

r2("日期") = e.Form.Controls("TextBox3").Value

r2("时间") = e.Form.Controls("TextBox4").Value

r2("车身重量") = e.Form.Controls("TextBox5").Value

r2("车皮重量") = e.Form.Controls("TextBox6").Value

r2("货物重量") = e.Form.Controls("TextBox7").Value

r2("地点") = e.Form.Controls("ComboBox1").Value

r2("备注") = e.Form.Controls("TextBox8").Value

Else

msgbox("没有地点")

End If

问题完美解决。

谢谢版主~~~~

主题：foxtable父表与子表