专家坐堂-[求助]Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=159189)

--  作者：子不语
--  发布时间：2020/12/16 13:50:00
--  [求助]

代码
Tables("成品检验表").current(e.form.controls("ComboBox1").text) = e.form.controls("textbox14").text
Tables("成品检验表").current(e.form.controls("combobox2").text) = e.form.controls("textbox15").text
Tables("成品检验表").current(e.form.controls("combobox3").text) = e.form.controls("textbox16").text
Tables("成品检验表").current(e.form.controls("combobox4").text) = e.form.controls("textbox17").text
Tables("成品检验表").current(e.form.controls("combobox5").text) = e.form.controls("textbox18").text
Tables("成品检验表").current(e.form.controls("combobox6").text) = e.form.controls("textbox19").text
Tables("成品检验表").Current.Save()
e.Form.Controls("TextBox1").Select()
Tables("成品检验表").AddNew()
提示“”列不属于表成品检验表。

combobox有时可能需要为空

[此贴子已经被作者于2020/12/16 13:50:43编辑过]

--  作者：有点蓝
--  发布时间：2020/12/16 14:00:00
--
控件有空值，判断一下，

dim r as row = Tables("成品检验表").current
if r isnot nothing then

dim s as string = e.form.controls("ComboBox1").text
if s > "" then
r(s) = e.form.controls("textbox14").text
end if

s = e.form.controls("combobox2").text
if s > "" then
r(s) = e.form.controls("textbox15").text
end if

……其它自行参考处理
end if

--  作者：子不语
--  发布时间：2020/12/16 14:02:00
--
谢谢

--  作者：子不语
--  发布时间：2020/12/16 14:17:00
--
编译错误：未声明"s"。它可能因其保护级别而不可访问

--  作者：子不语
--  发布时间：2020/12/16 14:18:00
--
错误代码if s>"" then

--  作者：有点蓝
--  发布时间：2020/12/16 14:20:00
--
请贴出自己的完整代码说明

--  作者：子不语
--  发布时间：2020/12/16 14:21:00
--

Dim r As Row = Tables("成品检验表").current
If r IsNot Nothing Then
Dim s As String = e.form.controls("ComboBox1").text
End If
If s > "" Then
r(s) = e.form.controls("textbox14").text
End If
s = e.form.controls("combobox2").text
If s > "" Then
r(s) = e.form.controls("textbox15").text
End If

--  作者：子不语
--  发布时间：2020/12/16 14:22:00
--

错误代码if s>"" then

--  作者：有点蓝
--  发布时间：2020/12/16 14:31:00
--
照抄2楼代码