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

-- 移送版关联表问题

有两张表一张客户资料表一张客户明细表

下面这个把客户资料表做了录入我想做一个展开建（显示
图片点击可在新窗口打开查看

此主题相关图片如下：微信图片_20180110212950.jpg

更多字段）展开客户明细表输入明细数据关联的是客户ID 字段

Select Case e.Path

Case "kfbb.htm"

wb.AddPageTitle("","pageheader","渠道客户报备","艾迪尔木作事业部")

If e.PostValues.Count = 0 Then

wb.AddForm("","form1","kfbb.htm")

With wb.AddInputGroup("form1","ipg1","基础信息:")

.AddInput("日期","报备时间:","date")

.AddInput("建档人","报备人:","Text")

.AddInput("客户姓名","客户姓名:","Text")

.AddInput("单位名称","单位名称:","Text")

.AddInput("职务","职务:","Text")

.AddInput("电话","手机:","Text")

.AddInput("QQ","QQ:","Text")

.AddInput("微信","微信:","Text")

.AddInput("邮箱","邮箱:","Text")

End With

With wb.AddInputGroup("form1","ipg7","备注")

.AddTextArea("备注",5).Placeholder = "其他描述!"

End With

With wb.AddButtonGroup("form1","btg8",True)

.Add("btn1", "提交资料", "submit")

End With

e.WriteString(wb.Build)

Else

Dim nms() As String = {"客户姓名","职务","电话","微信","单位名称","建档人"} \'不能为空的列名数组

For Each nm As String In nms

If e.PostValues.ContainsKey(nm) = False Then \'生成错误提示页

With wb.AddMsgPage("","msgpage","增加失败", nm & "列不能为空!")

.icon = "Warn" \'改变图标

.AddButton("btn1","返回").Attribute = ""

End With

e.WriteString(wb.Build)

Return \'必须返回

End If

nms = New String() {"日期","客户姓名","电话","微信","单位名称","备注","客户类别","职务","建档人","邮箱","QQ" } \'重新定义了nms数组,增加了两列.

Dim dr As DataRow = DataTables("客户资料库").AddNew()

For Each nm As String In nms

If e.PostValues.ContainsKey(nm) Then

dr(nm) = e.PostValues(nm)

End If

wb.InsertHTML("您的报备如下,请注意我们的确认信息:<br/>")

For Each key As String In e.PostValues.Keys

wb.InsertHTML(key & ":" & e.PostValues(key) & "<br/>")

\'保存并生成增加成功提示页面

dr.save()

With wb.AddMsgPage("","msgpage","增加成功", "感谢您的付出,艾迪尔的发展离不开您的付出") \'生成成功提示页

.AddButton("btn1","继续添加","xckc51.htm")

End With

e.WriteString(wb.Build)

End If

End Select