[已解决]关于程序报错问题

xzwdk

想实现通过弹出画面修改表格内容，调试中发现了错误。请帮忙解决一下。谢谢

最佳答案

月排行榜 / 总排行榜

sliang28

2013-10-9 16:52

val去掉

1. Set rg = Sheet3.Columns(2).Find(what:=Me.TextBox1.Text, Lookat:=xlWhole)

复制代码

跳转到最佳答案楼层

我心飞翔410

出现什么问题  

sliang28

val去掉

1. Set rg = Sheet3.Columns(2).Find(what:=Me.TextBox1.Text, Lookat:=xlWhole)

复制代码

xzwdk

我心飞翔410 发表于 2013-10-9 16:49
出现什么问题

双击P列弹出画面，点击修改报错。

xzwdk

sliang28 发表于 2013-10-9 16:52
val去掉

VAL在这里出现了什么问题？此函数在我的其他程序里面是正常的呵。

sliang28

xzwdk 发表于 2013-10-9 16:55
VAL在这里出现了什么问题？此函数在我的其他程序里面是正常的呵。

加上它就成1了，在B列找不到，rg是nothing，又如何有rg.row呢？
慢慢体会下吧

xzwdk

sliang28 发表于 2013-10-9 16:52
val去掉

val去掉后程序可以运行了。但是有个问题就是，反复单击P列不同行后，发现弹出画面仅读取第一次弹出画面时载入的内容。程序问题出在哪里呢？

sliang28

xzwdk 发表于 2013-10-9 17:05
val去掉后程序可以运行了。但是有个问题就是，反复单击P列不同行后，发现弹出画面仅读取第一次弹出画面时 ...

我这里没有这个问题啊!
而且窗体在加载时,数据选择是是ActiveCell.Row,没有问题.
你在试一下吧! 代码没有问题

xzwdk

sliang28 发表于 2013-10-9 17:49
我这里没有这个问题啊!
而且窗体在加载时,数据选择是是ActiveCell.Row,没有问题.
你在试一下吧! 代码没 ...

老师你好。很不要意思。试了很多次，发现弹出画面总是调用最后一次修改的所在行的信息。还是没有查出程序错在哪里？

sliang28

xzwdk 发表于 2013-10-10 08:57
老师你好。很不要意思。试了很多次，发现弹出画面总是调用最后一次修改的所在行的信息。还是没有查出程序 ...

我检查了一下，也没看出来什么地方有问题啊！我这里显示没有问题啊！