Foxtable(狐表)用户栏目专家坐堂 → [求助]根据部门自动添加职工考核行


  共有4828人关注过本帖树形打印复制链接

主题:[求助]根据部门自动添加职工考核行

帅哥哟,离线,有人找我吗?
bashanren
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:316 积分:2899 威望:0 精华:0 注册:2009/7/25 18:29:00
[求助]根据部门自动添加职工考核行  发帖心情 Post By:2022/3/9 22:24:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:zgcltbxt.foxdb

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:zgcltbxt.zip


各位老师辛苦了!

项目中“考核登记表“中职工姓名是根据”职工信息表“中”部门“列中选定部门的所有职工。

我设计的窗口“考核登记”,在选择部门的下拉列表框中选定部门后,单击”添加记录“按钮,将在”职工信息“表中,根据选定的部门,在”考核登记表“中将该部门所有职工自动增行添加到表格中去。
我在”添加记录“按钮中的代码如下,可运行中总提示有问题,请老师们指导,谢谢各位老师:

Dim RIQI As Date= e.form.controls("RIQIXZ").Value

Dim BM1 As String=e.form.controls("BMXZ").Value

Dim Vals As List(of String())
MessageBox.show(BM1)
MessageBox.show(RIQI)

Vals = DataTables("ZGxx").GetValues("ZGname","[BM]= 'BM1'","_Identify")

For i As Integer = 0 To Vals.Count - 1
    Dim dr As DataRow = DataTables("khmxDJB").AddNew()
    dr("BM") = Vals(i)(0)
   
    dr("RIQI") = RIQI
   Next
图口如下图:

图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2022/3/9 22:29:14编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111376 积分:566944 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/3/10 8:52:00 [只看该作者]

先看3遍:http://www.foxtable.com/webhelp/topics/1284.htm

Vals = DataTables("ZGxx").GetValues("ZGname","[BM]= '" & BM1 & "'","_Identify")

For i As Integer = 0 To Vals.Count - 1
    Dim dr As DataRow = DataTables("khmxDJB").AddNew()
    dr("BM") = Vals(i)

 回到顶部
帅哥哟,离线,有人找我吗?
bashanren
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:316 积分:2899 威望:0 精华:0 注册:2009/7/25 18:29:00
  发帖心情 Post By:2022/3/10 21:00:00 [只看该作者]

谢谢“蓝”老师的指导,可我的代码在运行时,还是提示如下问题,还请老师帮忙指教,再次感谢!!
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2022.1.30.2
错误所在事件:窗口,考核登记,Button1,Click
详细错误信息:
无法将类型为“System.Collections.Generic.List`1[System.String]”的对象强制转换为类型“System.Collections.Generic.List`1[System.String[]]”。


 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111376 积分:566944 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/3/10 21:28:00 [只看该作者]


 回到顶部