这个数据运用如何实现？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：000000000001.png

大神，想实现这个功能，代码应该如何写啊？

例如表2中的工号18的课程时长引用表1中工号18的总课程时长（两个课程时长的合计数），表1中的课程时长按不同工号合计，哪怕是再加新数据，也会自动变化。
dvubb

此主题相关图片如下：0000000000002.png

[此贴子已经被作者于2019/1/20 12:32:24编辑过]

谁知道如何实现啊，给点建议啊，谢谢

直接上个实例不好吗

表1 datacolchanged事件中

select e.datacol.name

case "工号"，“课程时长”

dim dr as datarow=datatables("表2").find("工号=’" & e.datarow("工号") & “‘”)

if dr isnot nothing then

dr("授课时长")=e.datatable.Compute("sum(课程时长)"，“工号=‘” & e.datarow("工号") & "'")

endif

end select

然后重置下表1工号列或课程时长列

谢谢，真的搞定了，我再研究一下代码，学习学习

此主题相关图片如下：000000000000009.png

Select Case e.DataCol.name

Case "工号"

Dim dr As DataRow = DataTables("学员资料").Find("姓名= '" & e.OldValue & "'")

If dr Is Nothing Then

dr = DataTables("学员资料").AddNew()

dr("姓名") = e.DataRow("姓名")

dr("工号") = e.DataRow("工号")

dr("性别") = e.DataRow("性别")

dr("生日") = e.DataRow("生日")

dr("年龄") = e.DataRow("年龄")

dr("司龄") = e.DataRow("司龄")

dr("部门") = e.DataRow("部门")

dr("岗位") = e.DataRow("岗位")

dr("职级") = e.DataRow("职级")

dr("学历") = e.DataRow("学历")

dr("电话") = e.DataRow("电话")

dr("工作状态") = e.DataRow("工作状态")

dr("转正日期") = e.DataRow("转正日期")

Else

dr("工号") = e.DataRow("工号")

End If

Case "性别","工号","生日","年龄","司龄","部门","岗位","职级","学历","电话","工作状态","转正日期"

Dim dr As DataRow = DataTables("学员资料").Find("工号= '" & e.DataRow("工号") & "'")

If dr IsNot Nothing Then

dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)

End If

End Select

这段代码没问题，做个例子发上来测试。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:hr管理系统.zip

改成

Dim dr As DataRow = DataTables("学员资料").Find("工号= '" & e.OldValue & "'")

主题：这个数据运用如何实现？