Dim l2 As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox2") '计划类型列表
Dim l3 As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox3") '配送公司列表
Dim l5 As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox5") '清单列入月份列表
Dim txt As String = e.Form.Controls("TextBox1").text
If txt > "" Then
Dim drs As List(Of DataRow) = DataTables("高值耗材病人使用登记表").Select("配送公司='"& l3.value &"' and 清单列入月份='"& l5.value &"' and 计划类型='"& l2.value &"'" )
For Each dr As DataRow In drs
dr("结入月份") = txt
Next
Else
MessageBox.show("结入月份无数据")
End If
加好友 
发短信
Post By：2017/10/17 20:59:00 [显示全部帖子]
