共23 条记录, 每页显示 10 条, 页签: [1] [2][3]

标题：代码有时灵有时不灵

1楼

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编辑过]

2楼

bm 发表于：2011/12/27 20:15:00

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

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

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

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

[此贴子已经被作者于2011-12-27 20:37:00编辑过]

3楼

bm 发表于：2011/12/27 20:39:00

需要的是第二总效果。在table中筛选。不是在datetabie中筛选。

4楼

czy 发表于：2011/12/27 21:04:00

For Each r As Row In Tables("业务大表").Rows.Count -1
r("状态") = "已付费"
Next

5楼

bm 发表于：2011/12/27 21:15:00

不理解。

帮忙写下吧。万分感谢。

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

[此贴子已经被作者于2011-12-27 21:24:32编辑过]

6楼

bm 发表于：2011/12/27 22:04:00

请千万帮忙。已经二个晚上没好好睡觉了。

7楼

狐狸爸爸 发表于：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

8楼

bm 发表于：2011/12/27 22:18:00

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

[此贴子已经被作者于2011-12-27 22:19:41编辑过]

9楼

mr725 发表于：2011/12/27 22:28:00

看看帮助中Select的用法。 Dim drs As List(Of DataRow) = DataTables("业务大表").Select( 这里面你没有东西呀 )

10楼

狐狸爸爸 发表于：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

共23 条记录, 每页显示 10 条, 页签: [1] [2][3]