- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]根据部门自动添加职工考核行 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=175563)
-- 发布时间：2022/3/9 22:24:00
-- [求助]根据部门自动添加职工考核行
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:zgcltbxt.foxdb |
各位老师辛苦了！
项目中“考核登记表“中职工姓名是根据”职工信息表“中”部门“列中选定部门的所有职工。
我设计的窗口“考核登记”，在选择部门的下拉列表框中选定部门后，单击”添加记录“按钮，将在”职工信息“表中，根据选定的部门，在”考核登记表“中将该部门所有职工自动增行添加到表格中去。
我在”添加记录“按钮中的代码如下，可运行中总提示有问题，请老师们指导，谢谢各位老师：
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编辑过]
-- 发布时间：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)
-- 发布时间：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[]]”。
-- 发布时间：2022/3/10 21:28:00
--
Dim Vals As List(of String)