- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 不知道怎么设计窗口和编写代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102527)
-- 发布时间：2017/6/21 20:41:00
-- 不知道怎么设计窗口和编写代码
我想设计个窗口能查询具体哪个月哪一天的数据，捣鼓了好久不能实现，希望大神帮帮忙
此主题相关图片如下：$p0mlwd7g00hn7hue0%841z.png
[此贴子已经被作者于2017/6/21 20:47:02编辑过]
-- 发布时间：2017/6/21 22:23:00
--
Dim month As String = "七月份"
Dim day As Integer = 15
Dim fdr As DataRow = DataTables("表A").Find("日期 = " & day)
If fdr IsNot Nothing Then
msgbox(fdr(month))
Else
msgbox("没有找到")
End If
-- 发布时间：2017/6/22 10:35:00
-- 这个是什么情况
此主题相关图片如下：@9vle`n$oa43pi3{bpfmh8.png
-- 发布时间：2017/6/22 10:57:00
--
Dim month As String = e.Form.controls("ComboBox1").Text
Dim day As Integer = e.Form.controls("TextBox1").Text
Dim fdr As DataRow = DataTables("表A").Find("日期 = " & day)
If fdr IsNot Nothing Then
msgbox(fdr(month))
Else
msgbox("没有找到")
End If
-- 发布时间：2017/6/23 17:53:00
--
我想表A和表B同在一个窗口设计实现查询，该怎么做
此主题相关图片如下：i~wrne%g7ep@4m5zr(3i99y.png
-- 发布时间：2017/6/23 18:17:00
--
Dim month As String = e.Form.controls("ComboBox1").Text
Dim day As Integer = e.Form.controls("TextBox1").Text
Dim fdr As DataRow = CurrentTable.DataTable.Find("日期 = " & day)
If fdr IsNot Nothing Then
msgbox(fdr(month))
Else
msgbox("没有找到")
End If
-- 发布时间：2017/6/23 18:36:00
--
我设计了表1和表2两个选择按钮，不知道怎么写代码实现一个窗口同时查询表1和表2
此主题相关图片如下：d9pecb@gax7f%~5}wlz`r{1.png
-- 发布时间：2017/6/23 20:47:00
--
Dim month As String = e.Form.controls("ComboBox1").Text
Dim day As Integer = e.Form.controls("TextBox1").Text
Dim name As String = IIF(e.Form.controls("表1").Checked,"表1名称","表2名称")
Dim fdr As DataRow = DataTables(name).Find("日期 = " & day)
If fdr IsNot Nothing Then
msgbox(fdr(month))
Else
msgbox("没有找到")
End If
-- 发布时间：2017/6/24 21:39:00
-- 这是什么情况
怎么回事
此主题相关图片如下：)`h6%}iauapa8q%54{32tv6.png
[此贴子已经被作者于2017/6/24 21:45:21编辑过]
-- 发布时间：2017/6/25 11:42:00
--
代码没问题，上传具体例子测试。