共9 条记录, 每页显示 10 条, 页签: [1]

标题：加载提示代码

1楼

blackzhu 发表于：2009/12/18 9:46:00

Dim T10 As String = e.Form.Controls("TextBox1").Value
DataTables("订单明细").LoadFilter = "[IO] = '"& T10 &"'"
DataTables("订单明细").Load()

这段代码是加载用的,我想加上一个提示语言,加载到数据就提示加载到,否测就提示没有加载到,怎么写?

2楼

狐狸爸爸 发表于：2009/12/18 10:16:00

messagebox.show("合计加载了" & DataTables("订单明细").DataRows.Count & "行")

3楼

blackzhu 发表于：2009/12/18 10:44:00

这个我知道,我想要的是加载到了,就提示加载到了,没有加载到数据,就提示没有加载到数据.我是这样写的
Dim T10 As String = e.Form.Controls("TextBox1").Value
DataTables("订单明细").LoadFilter = "[IO] = '"& T10 &"'"
DataTables("订单明细").Load()
If T10 IsNot Nothing Then '如果找到的话
MessageBox.Show("数据已加载!", "提示")
Else
MessageBox.Show("没有加载到任何数据!", "提示")
End If

代码我放在ValueChanged中可以使用,关键是我只要一碰"t10"那个文本框立马就显示提示了.应该怎么弄?

4楼

狐狸爸爸 发表于：2009/12/18 10:51:00

If T10 IsNot Nothing Then

改为：

If DataTables("订单明细").DataRows.Count > 0 Then

5楼

blackzhu 发表于：2009/12/18 11:06:00

以下是引用狐狸爸爸在2009-12-18 10:51:00的发言：
If T10 IsNot Nothing Then

改为：

If DataTables("订单明细").DataRows.Count > 0 Then

还是不行, 我只要一点文本框立马出来没有加载到任何数据的提示框.和我前面做的一样.

6楼

yangming 发表于：2009/12/18 11:20:00

以下是引用blackzhu在2009-12-18 11:06:00的发言：

还是不行, 我只要一点文本框立马出来没有加载到任何数据的提示框.和我前面做的一样.

是不是文本框有事件代码？

7楼

blackzhu 发表于：2009/12/18 12:02:00

以下是引用yangming在2009-12-18 11:20:00的发言：

是不是文本框有事件代码？

对了,我查出来了,在文本框我加了一个e.Form.Controls("textbox1").Value = "" 代码,只要一点,原来加载的数据会退出去,怎么会这样?我只是清除文本的内容,怎么会退出加载的数据?现在我去掉就就行了.
还有 If T10 IsNot Nothing Then 这句代码应该也能用.

8楼

yangming 发表于：2009/12/18 13:18:00

e.Form.Controls("textbox1").Value = "" 可以放在窗口的AfterLoad事件中

9楼

blackzhu 发表于：2009/12/18 14:19:00

以下是引用yangming在2009-12-18 13:18:00的发言：
e.Form.Controls("textbox1").Value = "" 可以放在窗口的AfterLoad事件中

不行的,原先我在文本框中初始值中有字的,如果是放在这里面,我只要打开就会删除里面的字,原来我的做法是点击文本框,字会立即没有的,现在算了不影响使用就可以了.

共9 条记录, 每页显示 10 条, 页签: [1]