以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  代码有时灵有时不灵  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=15476)
--  作者：bm
--  发布时间：2011/12/27 19:58:00
--  代码有时灵有时不灵

Dim s1 As Object = e.Form.Controls("ComboBox1").Value
Dim s2 As Object = e.Form.Controls("ComboBox2").Value
Dim F As Object
If Tables("业务大表").Filter <> ""  Then
 F = Tables("业务大表").Filter & " And "
 Dim drs As List(Of DataRow) = DataTables("业务大表").Select( F & s1 & " = \'" & s2 & "\'"  )
        For Each dr As DataRow In drs
        dr("状态") = "已付费"
    Next
End If

上面的代码有时灵有时不灵

那位高手帮帮


图片点击可在新窗口打开查看此主题相关图片如下：截图20.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2011-12-27 20:04:22编辑过]
--  作者：bm
--  发布时间：2011/12/27 20:15:00
--  发现了一点规律

 隐藏一行后。可以正常工作。

那位高手帮忙解决一下。万分感谢。

弄了二三天了。实在是没辙了


图片点击可在新窗口打开查看此主题相关图片如下：截图21.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2011-12-27 20:37:00编辑过]
--  作者：bm
--  发布时间：2011/12/27 20:39:00
--  需要的是第二总效果
需要的是第二总效果。在table中筛选。不是在datetabie中筛选。
--  作者：czy
--  发布时间：2011/12/27 21:04:00
--  

 

For Each r As Row In Tables("业务大表").Rows.Count -1
    r("状态") = "已付费"
Next
--  作者：bm
--  发布时间：2011/12/27 21:15:00
--  状态有时会改变的

不理解。

帮忙写下吧。万分感谢 。

当条件选择客户的时候需要的是第一种效果。只在table中选择

 

[此贴子已经被作者于2011-12-27 21:24:32编辑过]
--  作者：bm
--  发布时间：2011/12/27 22:04:00
--  请千万帮忙啊
请千万帮忙。已经二个晚上没好好睡觉了。
--  作者：狐狸爸爸
--  发布时间：2011/12/27 22:07:00
--  
Dim s1 As Object = e.Form.Controls("ComboBox1").Value
Dim s2 As Object = e.Form.Controls("ComboBox2").Value
If s1 Is Nothing  OrElse s2 Is Nothing Then
    Return
End If
Dim F As Object
If Tables("业务大表").Filter <> ""  Then
    F = Tables("业务大表").Filter & " And "
End If
f  = f & F & s1 & " = \'" & s2 & "\'"
Dim drs As List(Of DataRow) = DataTables("业务大表").Select(  )
For Each dr As DataRow In drs
    dr("状态") = "已付费"
Next
--  作者：bm
--  发布时间：2011/12/27 22:18:00
--  狐狸爸爸出现这个

 


图片点击可在新窗口打开查看此主题相关图片如下：截图20.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2011-12-27 22:19:41编辑过]
--  作者：mr725
--  发布时间：2011/12/27 22:28:00
--  

看看帮助中Select的用法。 Dim drs As List(Of DataRow) = DataTables("业务大表").Select( 这里面你没有东西呀 )
--  作者：狐狸爸爸
--  发布时间：2011/12/27 22:36:00
--  

Dim s1 As Object = e.Form.Controls("ComboBox1").Value
Dim s2 As Object = e.Form.Controls("ComboBox2").Value
If s1 Is Nothing  OrElse s2 Is Nothing Then
    Return
End If
Dim F As Object
If Tables("业务大表").Filter <> ""  Then
    F = Tables("业务大表").Filter & " And "
End If
f  = f & F & s1 & " = \'" & s2 & "\'"
Dim drs As List(Of DataRow) = DataTables("业务大表").Select(f)
For Each dr As DataRow In drs
    dr("状态") = "已付费"
Next