- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]选择行报错 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=122998)
-- 发布时间：2018/8/6 14:04:00
-- [求助]选择行报错
下面的代码选择行会报错。
此主题相关图片如下：qq截图20180806135947.png
Dim D5 As Date = Date.Today
Dim Y As Integer = D5.Year
Dim M As Integer = D5.Month
Dim D As Integer = D5.DAY
Dim DateS2 As String ="sp" & y & "年" & M & "月" & "_" & D
If DataTables("进度表").datacols.Contains(DateS2) = True Then
With Tables("XMFP.进度表")
.Select(1, .Cols(DATES2).Index)
End With
End If
-- 发布时间：2018/8/6 15:24:00
--
Dim D5 As Date = Date.Today
Dim Y As Integer = D5.Year
Dim M As Integer = D5.Month
Dim D As Integer = D5.DAY
Dim DateS2 As String ="sp" & y & "年" & M & "月" & "_" & D
If Tables("XMFP.进度表").cols.Contains(DateS2) = True Then
With Tables("XMFP.进度表")
If .rows.count > 0 Then
.Select(0, .Cols(DATES2).Index)
End If
End With
End If
-- 发布时间：2018/8/6 17:23:00
--
多谢了。那如何让我选择的列正好在屏幕中间显示呢。。这个有办法吗
-- 发布时间：2018/8/6 17:49:00
--
参考
http://www.foxtable.com/webhelp/scr/2358.htm