以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  怎么一直出现错误呢？？？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=109608)

--  作者：学学 --  发布时间：2017/11/15 16:08:00 --  怎么一直出现错误呢？？？ Dim Filter As String With e.Form.Controls("订单号")     If .Text > ""Then         If Filter >"" Then             Filter = Filter & " And "         End If         Filter = Filter & "订单号 = \'" & .Text & "\'"     End If End With e.Form.Controls("退货数据表").Table.Filter = filter e.Form.Controls("已退数据表").Table.Filter = filter e.Form.Controls("换货数据表").Table.Filter = filter e.Form.Controls("已发货数据表").Table.Filter = filter e.Form.Controls("已收货数据表").Table.Filter = filter If e.Form.Controls("退货数据表").Table.Rows.Count > 0 Then     e.form.Controls("退换货订单").SelectedIndex = 1 Else  If e.Form.Controls("已退数据表").Table.Rows.Count > 0 Then     e.form.Controls("退换货订单").SelectedIndex = 1 Else  If e.Form.Controls("换货数据表").Table.Rows.Count > 0 Then     e.form.Controls("退换货订单").SelectedIndex = 2 Else  If e.Form.Controls("已发货数据表").Table.Rows.Count > 0 Then     e.form.Controls("退换货订单").SelectedIndex = 3 Else  If  e.Form.Controls("已收货数据表").Table.Rows.Count > 0  Then     e.form.Controls("退换货订单").SelectedIndex = 4 End If 此主题相关图片如下：qq截图20171115160651.png

--  作者：有点甜 --  发布时间：2017/11/15 16:24:00 --   做个例子发上来测试。

--  作者：学学 --  发布时间：2017/11/15 16:54:00 --  找到了，，，忘记标准名字了