Dim txt1 As String = Forms("GPS接收").controls("ComboBox-数据来源").Text
Dim txt2 As String = Forms("GPS接收").controls("ComboBox-来源名称").Text
Dim txt3 As String = e.Form.DropDownBox.Text
Dim t As Table = Forms("当前节点下拉窗口").controls("Table1").Table ''Tables("窗口1_Table1") ''e.Form.controls("Table1")
t.RowHeaderVisible = False
t.Filter = "[Class] = '定位数据' and [Scene] ='" & txt1 & "' And [Cont1] = '" & txt2 & "'"
Dim i As Integer=0
i = t.FindRow("Convert([Cont3],'System.Double') >= " & CDbl(txt3) )
If i >= 0 Then
t.Position = i
End If
t.Select()
老师 我用下面代码 替换上面的红色代码，就没有报错，
For Each r As Row In t.Rows
r("IDNO")=CDbl(r("Cont3"))
Next
问题还是在 i = t.FindRow("Convert([Cont3],'System.Double') >= " & CDbl(txt3) )
又找不到原因！！求救
加好友 
发短信
Post By：2021/9/24 10:49:00 [只看该作者]
