jsp页面的筛选数据

jsp页面的筛选数据,第1张

1, 获取你页面上四个筛选条件的值,类别,是否有空调等等,

2.把这些值通过servlet 或者action等等传给后台的java代码中的sql语句

3. 用java代码连接数据库执行sql语句(带where条件的)进行数据库查询,返回结果集。在页面上显示。

首先从第二行开始遍历 I 列所有单元格

如果单元格内有红字

判断该行A列单元格的值,如果前三个字符是"lab"

然后我没看懂啥叫D列单元格的前三个字段?是指3个字符吗?比如chemical就给他变成che然后填入C列?

如果A列是Correct 或者 issue 该行C列单元格填home

然后我又没看懂啥叫第三步保持第一步的筛选条件?意思是只是提示一下第三步继续对红字I列所在行进行 *** 作嘛?还是说需要让sheet只显示I列红字的行?我想知道代码运行过后是否只显示I列红字的行,还是说只注重结果,有无筛选不重要。

由于使用了ActiveSheet,所以使用的时候要注意保持需要 *** 作的表单被激活。

I列红字,A列前三字符Lab,C列等于D列前三字符  

I列红字,A列等于Correct,C列等于home  

I列红字,A列等于Issue,C列等于home  

I列红字,A列空,G列等于No or Only,C列等于home  

  With ThisWorkbook.ActiveSheet

      For i = 2 To .UsedRange.Rows.Count

          If .Cells(i, 9).Font.ColorIndex = 3 Then

              If Left(CStr(.Cells(i, 1).Value), 3) = "Lab" Then

                  .Cells(i, 3).Value = Left(CStr(.Cells(i, 4).Value), 3)

              ElseIf CStr(.Cells(i, 1).Value) = "Correct" Or CStr(.Cells(i, 1).Value) = "Issue" Then

                  .Cells(i, 3).Value = "home"

              ElseIf CStr(.Cells(i, 1).Value) = "" And CStr(.Cells(i, 7).Value) = "No or Only" Then

                  .Cells(i, 3).Value = "home"

              End If

          End If

      Next i

  End With

如果只是选中的话,下面的代码就可以了,如果还有其他 *** 作的话,也可以一起加上

Sub test()

Dim x As Long

Dim i As Range

For x = 1 To Range("I65536").End(xlUp).Row

If Cells(x, 1) = "这里换成筛选条件" Then '如果是不确定的条件,也可以用instr来写

If i Is Nothing Then

Set i = Cells(x, 1)

Else

Set i = Union(i, Cells(x, 1))

End If

End If

Next

i.EntireRow.Select

End Sub


欢迎分享,转载请注明来源:内存溢出

原文地址: https://outofmemory.cn/zaji/7299260.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-04-04
下一篇 2023-04-04

发表评论

登录后才能评论

评论列表(0条)

保存