Dim str As String = e.form.controls("combobox2").Value
MessageBox.show(str)
Dim Cols1() As String = {"清单项目","工程名称","工程分部","单位","合同工程量","清单单价"}
Dim Cols2() As String = {"清单项目","工程名称","工程分部","单位","合同工程量","清单单价"}
Dim dtp As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
For Each dr1 As DataRow In DataTables("清单目录").Select("[工程名称] = '" & str & "'")
Dim dr2 As DataRow = DataTables("合同执行").AddNew()
dr2("进度终止日期") = dtp.Value
For Each dc As DataCol In DataTables("清单目录").DataCols
dr2(dc.Name)= dr1(dc.Name)
Next
Next
加好友 
发短信
Post By：2019/4/16 21:55:00 [显示全部帖子]
