如何用易语言做一个表格搜索?
回答如下:以下是使用易语言实现表格搜索的基本步骤:
1. 创建一个表格控件,用于显示数据。
2. 创建一个文本框控件,用于输入搜索关键字。
3. 创建一个按钮控件,用于触发搜索操作。
4. 在按钮的点击事件中获取文本框中输入的关键字。
5. 遍历表格中的所有数据,对每条数据进行匹配。
6. 如果匹配成功,将该条数据显示在表格中。
7. 如果匹配失败,将该条数据从表格中删除。
以下是一个简单的示例代码,仅供参考:
“`
‘创建表格控件
Dim Table As Object
Set Table = CreateObject(“XGMTable.XGMTable”)
Table.CreateControl Me.hWnd, 10, 10, 400, 300
‘创建文本框控件
Dim TextBox As Object
Set TextBox = CreateObject(“XGMTextBox.XGMTextBox”)
TextBox.CreateControl Me.hWnd, 10, 320, 200, 20
‘创建按钮控件
Dim Button As Object
Set Button = CreateObject(“XGMButton.XGMButton”)
Button.CreateControl Me.hWnd, 220, 320, 80, 20
Button.Caption = “搜索”
‘搜索按钮的点击事件
Function Button_Click()
‘获取搜索关键字
Dim keyword As String
keyword = TextBox.Text
‘遍历表格中的所有数据
Dim i As Integer
For i = Table.RowCount – 1 To 0 Step -1
Dim data As String
data = Table.GetCellData(i, 0) ‘假设表格只有一列数据
‘进行匹配
If InStr(data, keyword) > 0 Then
‘匹配成功,保留该条数据
Else
‘匹配失败,删除该条数据
Table.DeleteRow i
End If
Next i
End Function
“`
易语言高级表格排序
- 两个列表 和excel表格一样的排序求助!!如图 籂激焚刻莳灸锋熏福抹排列第二列 第一列也跟着排列
- 每一列都升序排列,不扩展区域就可以
【新手求赐教】易语言 从数据库显示如期到 表格代码该如何设置
- 日期该怎么搞到这里显示。请大神 赐教!
- 你的数据类型是什么型的?
易语言数据库按条件用表格显示代码怎么写?
- 数据库姓名、年龄、录入时间等!如果按时间最近一周录入该怎么写?就是只显示最近一周的@!是表格需要数据源的那个表格!不是超级列表框发川篡沸诂度磋砂单棘问题补充: 求大神
- 不知细叶谁裁出,二月春风似剪刀。
关于易语言读取accsee数据库逻辑值,能正确读出了能否在高级表格中修改并写入数据库
- 其他字段的写入用的是这种方式修改的,光标的行列,但图一能读出来了,修改似乎不能改问题补充: 现在读出来是这样的,只能在数据库中修改,想在高级表格中修改
- [bits型]在sql语句中修改的是 用1和0来代表true 和false的
易语言高级表格打印出来的字很小?
- 高手请赐教。
- 你要用打印机!然后:高级表格.打印()系统会自动跳转到打印设置页面
易语言高级表格怎样保存数据?
- 易语言怎样把高级表格里面的数据保存起来?到下次打开的时候在读取到高级表格里面?问题补充: 把组合框和编辑框和高级表格的数据一起保存到一个文件或者保存到高级表格里,源码怎样写??满意的话加分!!!!!!
- 读配置项 和 写配置项
易语言普通表格,数据库连通后出现提示
- 问题补充:
- 你看看你的支持库全吗?少放了什么,少不少组件。慢慢学吧
易语言如何实现抓取网页表格?
- 如题,我想抓取CSDN博客的一个表格,呈现在易语言里,然后表格更新的时候易语言里的表格也跟着更新,请问如何做到地址:https://blog.csdn.net/weixin_44594161/article/details/104117805
- 用分割数组或者正则表达式提取数据然后可以用EXCEL类模块插入并生成xls文件(也可以用TAB来代替粘贴复制~)
易语言怎么将SQL查询出来的结果显示到高级表格。
- ”select 生产单.合计数量*生产单物品名称.单件用量 from [生产单],[生产单物品名称] where 生产单.合同编号=生产单物品名称.合同编号”数据库为SQL2014,以上代码在SQL数据库查询没问题,但是没有结果字段。问题:如何把查询出来的结果直接显示到高级表格其中一列,
- 记录集.打开("slect * from 表名 order by 编号",1,)记录集.到首记录()计次循环首(记录集.记录数量,整数变量)记录集.读文本(0,文本变量)高级表格.置数据(整数变量,1,1,文本变量)记录集.读文本(1,文本变量)高级表格.置数据(整数变量,2,1,文本变量)记录集.读文本(2,文本变量)高级表格.置数据(整数变量,3,1,文本变量)记录集.到下一条()计次循环尾()记录集.关闭()
易语言 超级列表框高级表格插入行
- 如果上面的原文本格式是固定的 可以用分割文本。然后再插入。分割后的数组索引从4开始。