- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 日期问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=87727)
-- 发布时间：2016/7/18 12:38:00
-- 日期问题
不知道错在哪了，郁闷。
在选中 DateTimePicker DTP日期 出现错误
TextChanged的代码
Dim cj As WinForm.DateTimePicker = e.Form.Controls("DTP日期")
Tables("报表").Filter="清单日期 = \'" & cj.Text & "\' "
此主题相关图片如下：cw.jpg
此主题相关图片如下：cw2.jpg
[此贴子已经被作者于2016/7/18 12:38:57编辑过]
-- 发布时间：2016/7/18 13:05:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目118.foxdb |
帮我看看吧
-- 发布时间：2016/7/18 14:11:00
--
Tables("表B").Filter= "第六列 = #" & cj.Text & "#"
-- 发布时间：2016/7/18 15:49:00
--
还是一样，实列已发，帮我看看把
-- 发布时间：2016/7/18 16:38:00
--
我测试没有问题
-- 发布时间：2016/7/18 17:05:00
--
先要将表B取消筛选，然后再运行窗口
此主题相关图片如下：cw3.jpg
-- 发布时间：2016/7/18 18:06:00
--
1.表格没有“员工姓名”这列
2.判断放到最前面
If e.Table.Current Is Nothing Then \'如果Current为Nothing
Return \'则返回
End If
If Forms("窗口1").Opened Then
If e.Table.Name = "表B" Then
Dim pd,cs As String
pd=e.Table.Current("第七列")
cs=e.Table.Current("第一列")
Dim si As Integer
si = Tables("表A").FindRow("[第二列] =\'" & pd & "\'",0,True)
If si >= 0 Then
Tables("表A").Position = si
End If
si = Tables("表B").FindRow("[第七列] =\'" & cs & "\'",0,True)
If si >= 0 Then
Tables("表B").Position = si
End If
End If
If e.Table.Current Is Nothing Then \'如果Current为Nothing
Return \'则返回
End If
End If
Dim dr As DataRow = DataTables("表A").Find("[_Identify] = " & e.Table.Current("第三列"))
Dim idx As Integer = Tables("表A").FindRow( dr)
If idx > - 1 Then \'如果找到符合条件的行
Tables("表A").Position = idx \'则选择该行
End If