主题：多行输入

那位高手帮忙看看。这段代码在使用内部表的时候很好用。现在使用了access数据库用不了了。

Dim s1 As String = e.Form.Controls("ComboBox1").Value
Dim s2 As String = e.Form.Controls("ComboBox2").Value
Dim i As Integer
Dim Filter As String
If s1 <> "" And s2 <> "" Then
    If Tables("业务大表").Filter <> "" Then
        Filter = Tables("业务大表").Filter & " And "
    End If
    Dim drs As List(Of DataRow) = DataTables("业务大表").Select(Filter & s1 & " = '" & s2 & "'")
Dim Result As DialogResult
        Result = MessageBox.Show("确定选定行销账吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If Result = DialogResult.Yes Then
    For Each dr As DataRow In drs
        dr("状态") = "已付费"
    Next
 End If
End If

此主题相关图片如下：截图20.jpg

看不懂你的代码,如果内部表好用,ACCESS是一样用的.

你这个判断条件什么也没有说明呀? 按道理是这样的?

 

Dim s1 As String = e.Form.Controls("ComboBox1").Value
Dim s2 As String = e.Form.Controls("ComboBox2").Value
 Dim drs As List(Of DataRow) = DataTables("业务大表").Select("列名 ='" & s1 & "' And 列名 = '" & s2 & "'")
Dim Result As DialogResult
        Result = MessageBox.Show("确定选定行销账吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If Result = DialogResult.Yes Then
    For Each dr As DataRow In drs
        dr("状态") = "已付费"
    Next
 End If