以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]根据部门自动添加职工考核行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=175563)

--  作者:bashanren
--  发布时间: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编辑过]

--  作者:有点蓝
--  发布时间: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
--  发布时间: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)