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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请高手指教

共有13265人关注过本帖树形打印复制链接主题：请高手指教

zdk0915

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：37 积分：317 威望：0 精华：0 注册：2011/5/26 21:29:00

Post By：2011/6/9 21:51:00 [只看该作者]

谢谢楼上各位！本人文化水平较低，没搞过编程，记忆力不好，看帮助文件除了有很多不理解，更多的是看了后面的忘记前面的，时间又很少，曾几次想放弃自己用狐表做管理系统了，但能你们这些高手的指导，我相信只要坚持做下去，一定能做出自己量身定做的管理系统。再次谢谢了！

zdk0915

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：37 积分：317 威望：0 精华：0 注册：2011/5/26 21:29:00

Post By：2011/6/9 22:42:00 [只看该作者]

8楼的代码应该怎样用？请指导。

9楼的代码在规格和数量先录入时能满足要求，但在名称先录入时表B却不能在自动增加的行中得到相应的规格和数量的数据。

10楼的方案完全实现了所需功能。

blackzhu

小大 13楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9875 积分：57590 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2011/6/10 7:34:00 [只看该作者]

昨日老大给了例子,我就没有提,你试试这样,至于8楼的你用按钮试试:

Select Case e.DataCol.Name

Case "件1名称","规格","数量"

Dim r1 As Row

Dim r As Row = Tables("表B").AddNew()

r1 = Tables("表A").Current

r("名称")=r1("件1名称")

r("规格")=r1("规格")

r("数量")=r1("数量")

End Select

Select Case e.DataCol.Name

Case "件2名称","规格","数量"

Dim r1 As Row

Dim r As Row = Tables("表B").AddNew()

r1 = Tables("表A").Current

r("名称")=r1("件2名称")

r("规格")=r1("规格")

r("数量")=r1("数量")

End Select

Select Case e.DataCol.Name

Case "件3名称","规格,"数量"

Dim r1 As Row

Dim r As Row = Tables("表B").AddNew()

r1 = Tables("表A").Current

r("名称")=r1("件3名称")

r("规格")=r1("规格")

r("数量")=r1("数量")

End Select

ybil

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：521 积分：4910 威望：0 精华：7 注册：2008/9/2 22:22:00

Post By：2011/6/10 16:48:00 [只看该作者]

看窗口

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

zdk0915

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：37 积分：317 威望：0 精华：0 注册：2011/5/26 21:29:00

Post By：2011/6/11 10:11:00 [只看该作者]

谢谢各位老大！blackzhu的代码，我也这样改了试过，会在名称、数量、规格，录入的时候重复增行，并自动生成的数据一样受录入先后的限制。

blackzhu

小大 16楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9875 积分：57590 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2011/6/11 11:40:00 [只看该作者]

那简单你把狐爸的代码改入到表事件里去就可以了.

blackzhu

小大 17楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9875 积分：57590 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2011/6/11 11:46:00 [只看该作者]

Select Case e.DataCol.Name

Case "件1名称","件2名称","件3名称","规格","数量"

DataTables("表B").DataRows.Clear()

Dim nms() As String = {"件1名称","件2名称","件3名称"}

For Each dr1 As DataRow In DataTables("表A").DataRows()

For Each nm As String In nms

If dr1.IsNull(nm) = False

Dim dr2 As DataRow = DataTables("表B").AddNew()

dr2("名称") = dr1(nm)

dr2("规格") = dr1("规格")

dr2("数量") = dr1("数量")

End If

End Select

ybil

小大 18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：521 积分：4910 威望：0 精华：7 注册：2008/9/2 22:22:00

Post By：2011/6/11 12:02:00 [只看该作者]

以下是引用blackzhu在2011-6-11 11:46:00的发言：

Select Case e.DataCol.Name

Case "件1名称","件2名称","件3名称","规格","数量"

DataTables("表B").DataRows.Clear()

Dim nms() As String = {"件1名称","件2名称","件3名称"}

For Each dr1 As DataRow In DataTables("表A").DataRows()

For Each nm As String In nms

If dr1.IsNull(nm) = False

Dim dr2 As DataRow = DataTables("表B").AddNew()

dr2("名称") = dr1(nm)

dr2("规格") = dr1("规格")

dr2("数量") = dr1("数量")

End If

End Select

呵呵，这不是重复操作吗？

blackzhu

小大 19楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9875 积分：57590 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2011/6/11 13:53:00 [只看该作者]

我测试过没有问题,不会重覆的.

blackzhu

小大 20楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9875 积分：57590 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2011/6/11 13:58:00 [只看该作者]

此主题相关图片如下：tm截图未命名-1.jpg

此主题相关图片如下：tm截图未命名-2.jpg

下一主题 >> << 上一主题

总数 22 上一页 1 2 3 下一页

主题：请高手指教