进行数据填充时如何指定填充条件？在线等！！

[qqyzq]

进行数据填充时如何指定填充条件？在线等！！
比如这条语句
daCustomer.Fill(DsFyqtb, "customer")
我现是在想把表customer中的客户资料数据填充到窗体的ComBOBox中。但我填充时只想填充表中客户类型（字段名：CUlx）为A的客户时如何实现。

[qqyzq]

没有人知道吗。失望啊。

[9raul]

Dim i As Integer
ComboBox.Items.Clear
For i = 0 to DsFyqtb.Tables(0).Rows.Count-1
If DsFyqtb.Rows(i).Item(0)="A" then '.Item(0) 类型所在列号,从0开始数
ComboBox.Items.Add(DsFyqtb.Rows(i).Item(1)) '.Item(1) 客户所在列号,从0开始数
End if
Next i

[水如烟]

'在此假定CUlx的数据类型为String
Dim Counts As Integer
Counts = DsFyqtb.Tables("customer").Rows.Count

Dim mCUlx(Counts - 1) As String
Dim i As Integer
For i = 0 To Counts - 1
mCUlx(i) = DsFyqtb.Tables("customer").Rows(i).Item("CUlx") '取得列CUlx全部数据
Next

Array.Sort(mCUlx) '对数组排序

Dim mOnlyCUlx() As String '只对CUlx中的数据取唯一值
Dim tmp As String = ""
Dim k As Integer = 0
For i = 0 To mCUlx.Length - 1
If Not tmp.Equals(mCUlx(i)) Then
ReDim Preserve mOnlyCUlx(k)
mOnlyCUlx.SetValue(mCUlx(i), k)
tmp = mCUlx(i)
k += 1
End If
Next

Me.ComboBox1.DataSource = mOnlyCUlx

[水如烟]

第二个你可以用DataView来选择
Dim dv As DataView
dv = New DataView(DsFyqtb.Tables("customer"), "CUlx='A'", Nothing,taViewRowState.CurrentRows)
Me.DataGrid1.DataSource = dv

或者
Dim dv As DataView
dv = New DataView(DsFyqtb.Tables("customer"), "CUlx=" & Me.ComboBox1.Text, Nothing, DataViewRowState.CurrentRows)
Me.DataGrid1.DataSource = dv

[水如烟]

上面可能会出错，应该这样
Dim dv As DataView
dv = New DataView(DsFyqtb.Tables("customer"), String.Format("CUlx='{0}'", Me.ComboBox1.Text), Nothing, DataViewRowState.CurrentRows)
Me.DataGrid1.DataSource = dv

[qqyzq]

多谢各位，我试试看成功后就给分。