主题：[求助]第一次做窗口，有几个问题不明白，请教前辈(已解决)

Dim txt As String = e.Form.controls("textbox1").text
Dim dr As DataRow
txt = "'%" & txt & "%'"
dr = DataTables("小包发货单").Find(" [订单子编号] like " & txt   )
If dr IsNot Nothing Then
    Dim wz As Integer = Tables("查询_Table1").FindRow(dr)
    If wz >= 0 Then
        Tables("查询_Table1").Position = wz
    Else If txt = "" OrElse dr Is Nothing Then
        Tables("查询_Table1").Filter = " 1 = 2 "
    End If
End If

 

代码不起作用撒。。帮我看看。。

此主题相关图片如下：qq截图20140225130152.jpg

初始值默认是tabel的第一行，这样也不行啊。不能清空。不然的话textbox1输入任何值其他文本框都不会动了。

是不是可以设定textbox1为空时，其他控件都不进行绑定？

呃，我今天怎么上传两次了。。。

 

例子已经上传。。textbox1查询“订单子编号”，textbox2查询“订单编号”，同时“订单编号”又筛选表格“查询_Table1”。要让textbox1为空时，textbox2不筛选，以便textbox1能够再次查询。

顺道也问一下，打印地址的时候要如何编写？

单击“打印地址标签”，如果取货状态为"'已入仓'数"="订单子编号"数之和，正常打印，并且同一“订单编号”下的行改为“已

打印”。如果"已入仓"数/="'订单子编号'数"之和，则提示“货差X件未齐，是否继续打印？”如果打印，则同一“订单编号”下的

行改为“已打印”。  地址标签“已打印”的提示“地址标签已打印，是否要再次打印？”

应该是用compute进行分类统计吧？有没有相似的例子？

上传了哈

这个对了。谢谢lsy老师。还有绑定和解除，用上了就差不多了。好像还有点瑕疵。晚点把新做好的放上来。让老师知道。