Question

我有3个未绑定的文本框

textbox1输入数字
textbox3输入数字
textbox5共有两个文本框

我将此代码放在Form_Current()

中

Text5 = Val(Text1) + Val(Text3)

问题是，输入两个号码后，text5不会显示总数。

我尝试在textbox5.requery中使用了Form_Current()，但它仍无效。

Answer 1

您不应该将current事件用于此

创建以下子目录：

Private Sub Compute_Text5()
    Text5.value = Val(Text1.value) + Val(Text3.value)
End Sub

并向AfterUpdate()和Text1添加Text3事件，以便在更改任何2个文本框中的值时触发计算：

Private Sub Text1_AfterUpdate()
    Compute_Text5
End Sub  

Private Sub Text3_AfterUpdate()
    Compute_Text5
End Sub

Answer 2

MultiByteToWideChar()和var BOM: WideChar; FS: TFileStream; WS: WideString; I: Integer; begin FS := TFileStream.Create('MyUnicodeFile.txt', fmCreate); try BOM := $FEFF; FS.WriteBuffer(BOM, SizeOf(BOM)); For I := 0 to Memo1.Lines.Count-1 do begin WS := WideString(Memo1.Lines[I] + sLineBreak); FS.WriteBuffer(PWideChar(WS)^, Length(LS) * SizeOf(WideChar)); end; finally FS.Free; end; end;仅对绑定控件有用。

你真的不需要VBA，只需使用它作为Text5的控制源：

Form_Current()

未绑定的文本框未重新查询或刷新

2 个答案: