想实现如: "某单位"退回"某制品名称""多少""单位".
其中,"单位"读取数据表中的值,请问前面的 定义 和 表达式 如何写?
Select Case e.sender.name
Case "确认"
Dim lqdw As WinForm.ComboBox = e.Form.controls("领取单位")
Dim zpmc As winform.combobox = e.Form.controls("制品名称")
Dim thxl As WinForm.NumericComboBox = e.Form.controls("退回数量")
Dim dw As String = CurrentTable.Current("单位")
Dim result As dialogresult
result = messagebox.show(" " & lqdw.text & " 退回 " & zpmc.text & " " & thxl.Value & ""dw",请确认","提示",messageboxbuttons.OKcancel,MessageBoxIcon.Question)
If result = DialogResult.OK Then
CurrentTable.Current.save()
Else If result = DialogResult.Cancel
Return
End If