- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于关联表的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=147075)
-- 发布时间：2020/3/9 11:45:00
-- 关于关联表的问题
Dim t As Table = e.Form.Controls("档案").Table
For k As Integer = t.TopRow To t.BottomRow
Dim r As Row = t.Rows(k)
If r("选中") = True Then
Dim nma() As String = {"客户名称","联系人"}
Dim nmb() As String = {"客户","联系人"}
Dim dr As Row = Tables("表A主表").AddNew
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = r(nma(i))
Next
End If
Next
上面代码是窗口上执行，主表录入，录入没问题，但就是带有如新增功能（Tables("表A主表").AddNew()），我们真实需求就是不用上面代码只选中录入即可，不要新增行，因为主表只有单行录入，不用明细表多行录入，要如何解决？
-- 发布时间：2020/3/9 14:17:00
--
没看懂，截图说明一下
-- 发布时间：2020/3/19 23:09:00
--
如何导入按键只作导入当前数据即可，新增由新增按键来实现？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:主表引用问题.table |
-- 发布时间：2020/3/20 9:43:00
--
还是没搞懂。请截图说明，导入前是什么效果，导入后需要是什么效果？
-- 发布时间：2020/3/20 11:09:00
--
此主题相关图片如下：录入问题-01.jpg
此主题相关图片如下：录入问题-02.jpg
-- 发布时间：2020/3/20 11:16:00
--
老师，您把我上传实例的编号代码注掉，操作一下，就看清问题。我的需求就是用“新增”按键来增一行，然用“导入”按键把需要数据导入“新增”按键增这一行。而不是上面问题，“导入”按键事件，自己重新新增一行，再导入数据，造成数据不完整。
-- 发布时间：2020/3/20 11:59:00
--
就是把数据导入刚才新增的行中是吧。这样说明就行了，我看1楼的代码是对选择了的多行进行处理，再加上绕来绕去的表达很难理解在说啥。
Dim dr As Row = Tables("销售主表").Current
If dr Is Nothing Then
msgbox("先新增一行")
Else
Dim r As Row = e.Row
Dim nma() As String = {"客户名称","联系人","电话"}
For i As Integer = 0 To nma.Length - 1
dr(nma(i)) = r(nma(i))
Next
End If
-- 发布时间：2020/3/26 23:27:00
--
Dim dr As Row = Tables("销售冲帐导入_销售主表").Current
If dr Is Nothing Then
msgbox("先新增一行")
Else
Dim r As Row = e.Row
Dim nma() As String = {"客户","联系人","电话"}
For i As Integer = 0 To nma.Length - 1
dr(nma(i)) = r(nma(i))
Next
End If
上面代码，是把它为复选框选中，关联表同表，导入，报错
此主题相关图片如下：aa.jpg
-- 发布时间：2020/3/27 10:20:00
--
代码放在下拉窗口表格的click，或者双击事件，如果是放在按钮中，Dim r As Row = e.Row改为
Dim r As Row = tables("下拉窗口名称_table1").current