Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共20 条记录, 每页显示 10 条, 页签: [1] [2]
[浏览完整版]

标题:[求助]动态数据查询

1楼
riyuan 发表于:2024/6/22 8:25:00
有这样一个表,想在输入查询条件身份证号时,动态1和动态2的label控件显示对应的字段名称,textbox1t和textbox2控件显示对应的字段数据

图片点击可在新窗口打开查看此主题相关图片如下:123.png
图片点击可在新窗口打开查看
达到这种效果
图片点击可在新窗口打开查看此主题相关图片如下:1234.png
图片点击可在新窗口打开查看


[此贴子已经被作者于2024/6/22 8:26:37编辑过]
2楼
有点蓝 发表于:2024/6/22 9:07:00
显示对应的字段名称】-- 具体哪个字段?随机一个?

如果是固定的列,绑定即可:http://www.foxtable.com/webhelp/topics/0704.htm
3楼
riyuan 发表于:2024/6/23 7:55:00
比如说我输入吴小五的身份证号,根据身份证号遍历查询字段数据是否为空?如果字段数据为空就不显示,如果字段数据不为空就显示。
4楼
有点蓝 发表于:2024/6/23 20:33:00
Dim dr As DataRow
dr = DataTables("某表").Find("身份证号='" & e.form.controls("条件").text & "'")
If dr IsNot Nothing Then '如果找到的话
   dim i as integer = 1
for each dc as datacol in DataTables("某表").datacols
if dr.isnull(dc.name) = false
e.form.controls("动态" & i).text = dc.name
e.form.controls("textbox" & i).text = dr(dc.name)
end if
next
End If
5楼
riyuan 发表于:2024/6/24 9:04:00
窗体中没有表控件,是通过后台数据查询的表,
提示没有dt的表
Dim cmd As New SQLCommand
cmd.C
Dim str As String = e.Form.Controls("sfz").text
Dim dt As DataTable
dt = cmd.ExecuteReader()
Dim dr As DataRow
dr = DataTables(dt).Find("身份证号='" & e.form.controls("sfz").text & "'")
If dr IsNot Nothing Then '如果找到的话
   Dim i As Integer = 1
For Each dc As DataCol In DataTables(dt).datacols
If dr.isnull(dc.name) = False Then
e.form.controls("动态" & i).text = dc.name
e.form.controls("textbox" & i).text = dr(dc.name)
End If
Next
End If
6楼
有点蓝 发表于:2024/6/24 9:07:00
dr = DataTables(dt).Find("身份证号='" & e.form.controls("sfz").text & "'")
改为
dr = dt.Find("身份证号='" & e.form.controls("sfz").text & "'")
7楼
riyuan 发表于:2024/6/24 10:23:00

8楼
riyuan 发表于:2024/6/24 10:23:00

图片点击可在新窗口打开查看此主题相关图片如下:1111.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:112.png
图片点击可在新窗口打开查看
为什么还是不对
9楼
有点蓝 发表于:2024/6/24 10:27:00

For Each dc As DataCol In dt.datacols
10楼
riyuan 发表于:2024/6/24 11:03:00
为什么只能查询显示最后的一列‘

图片点击可在新窗口打开查看此主题相关图片如下:123.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:345.png
图片点击可在新窗口打开查看


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

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03906 s, 2 queries.