| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 代码问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89163) |
| -- 作者：hongyefor -- 发布时间：2016/8/16 15:26:00 -- 代码问题 查找"表A"中“第一列”对应“TextBox1”，“第二列”对应“TextBox2”，“第三列”对应“TextBox3”，的行，如果找到用MessageBox.Show提示共计几条，如果有3条数则，将这3条记录的第四列分别返回给“TextBox4”“TextBox5”“TextBox6”，总记录数据行正常是7行 请问这个代码怎么写啊 |
| -- 作者：大红袍 -- 发布时间：2016/8/16 15:38:00 -- 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 |