Private Sub 交接重量1_AfterUpdate()
Dim str As String
If Left(交接重量1, 1) = "=" Then
str = 交接重量1
交接重量1.ControlSource = str
交接重量 = 交接重量1
交接重量1.ControlSource = "交接重量1"
交接重量1 = str
End If
End Sub
这一段代码的作用是将文本框交接重量1中的包含运算符的字符串(如:4+4)的计算结果赋值给交接重量文本框,交接重量文本框是绑定数据库的,会写进数据库。
我不解的是,文本框"接重量1"定数据库字段"交接重量1" ,同时,它的名字也是”交接重量1“,那么”交接重量1“究竟代表的是文本框还是数据库字段,带双引号的”交接重量1“和不带双引号的有区别,是不是带双引号的就表示的是数据库字段,而不带双引号的表示的是文本框,
既然这样,我想通过文本框得到文本框里的值,那么该用什么属性,我发现没有text属性啊,莫非str = 交接重量1,就让str="4+4"了,感觉这段代码好难理解啊,高手给指点一下。

解决方案 »

  1.   

    呵呵,这是某人偷懒的结果:
    //If Left(交接重量1, 1) = "=" Then
    这里的"交接重量1"实际上应该是交接重量1.text
      

  2.   

    Text是TeXt控件的默认属性,所以可以直接写Text!
      

  3.   

    Private Sub 交接重量1_AfterUpdate()
    这里的是数据控件If Left(交接重量1, 1) = "=" Then
    这里的你打出.,后面会有text提示