Dim filter As String = "第一列 = '" & e.Form.Controls("TextBox1").Text & "' And 第二列 = '" & e.Form.Controls("TextBox2").Text & "' and 第三列 = '" & e.Form.Controls("TextBox3").Text & "'" Dim drs As List(Of DataRow) = DataTables("表A").Select(filter) msgbox(drs.count) For i As Integer = 0 To drs.count-1 e.Form.controls("TextBox" & i+4).Text = drs(i)("第四列") Next
加好友 
发短信
Post By：2016/8/16 15:38:00 [显示全部帖子]
