各位老师辛苦了！
项目中“考核登记表“中职工姓名是根据”职工信息表“中”部门“列中选定部门的所有职工。
我设计的窗口“考核登记”，在选择部门的下拉列表框中选定部门后，单击”添加记录“按钮，将在”职工信息“表中，根据选定的部门，在”考核登记表“中将该部门所有职工自动增行添加到表格中去。
我在”添加记录“按钮中的代码如下，可运行中总提示有问题，请老师们指导，谢谢各位老师：
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编辑过]
加好友 
发短信
Post By：2022/3/9 22:24:00 [只看该作者]
