Dim frm As winform.Form = e.Form
Dim Tbl As Table = frm.Controls("Table1").Table
Dim FltStr As String
Dim i As Integer
Dim drs As List(of DataRow) = Tbl.DataTable.Select("")
Dim dr As DataRow
Dim dc As DataCol
Dim luoJi As String
Dim caoZuo As String
For i = 0 To drs.Count - 1
dr = drs(i)
If dr.IsNull("字段") Then
msgbox("第" & i+1 & "行字段未填写!")
Tbl.Select(i,0)
Return
Else
If dr("逻辑")="并且" Then
luoJi="And"
Else
luoJi="Or"
End If
Select Case dr("操作符")
Case "1"
caoZuo = " = "
Case "2"
caoZuo = " > "
Case "3"
caoZuo = " < "
Case "4"
caoZuo = " >= "
Case "5"
caoZuo = " <= "
Case "6"
caoZuo = " <> "
End Select
FltStr = FltStr & dr("字段") & caoZuo & dr("值") & luoJi
End If
Next
If FltStr > "" Then
If FltStr.EndsWith(" And ") Then
FltStr = FltStr.SubString(5)
ElseIf FltStr.EndsWith(" Or ") Then
FltStr = FltStr.SubString(4)
End If
End If
'筛选代码
If Tbl.Rows.Count > 0 Then Tbl.Select(0,0)
Tables("person").Filter = FltStr
老师，您帮我看看我这段代码哪里有问题呀？
加好友 
发短信
Post By：2018/8/11 18:33:00 [显示全部帖子]
