以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  多行输入  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=15447)
--  作者：bm
--  发布时间：2011/12/26 18:30:00
--  多行输入

那位高手帮忙看看。这段代码在使用内部表的时候很好用。现在使用了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

[此贴子已经被作者于2011-12-26 18:32:13编辑过]
--  作者：bm
--  发布时间：2011/12/26 18:35:00
--  原来只“销账”选定的行

图片点击可在新窗口打开查看此主题相关图片如下：截图20.jpg
图片点击可在新窗口打开查看
--  作者：jianjingmaoyi
--  发布时间：2011/12/26 20:18:00
--  
看不懂你的代码,如果内部表好用,ACCESS是一样用的.
--  作者：jianjingmaoyi
--  发布时间：2011/12/26 20:33:00
--  

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

 

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